Fix typo in gl-drawing-area code
authorDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Thu, 29 Oct 2009 15:08:42 +0000 (18:08 +0300)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Thu, 29 Oct 2009 15:08:42 +0000 (18:08 +0300)
gtk-glext/gtkglext-drawing-area.lisp

index 47cf234..06d40ba 100644 (file)
@@ -10,7 +10,7 @@
 (defun resize (widget width height)
   (with-gl-context (widget)
     (if (gl-drawing-area-on-resize widget)
-        (funcall (gl-drawing-area-on-resize widget) widget width height))
+        (funcall (gl-drawing-area-on-resize widget) widget width height)
         (progn
           (gl:viewport 0 0 width height)
 
@@ -21,7 +21,7 @@
 
           ;; set modelview to identity
           (gl:matrix-mode :modelview)
-          (gl:load-identity))))
+          (gl:load-identity)))))
 
 (defun gl-drawing-area-configure (widget event)
   (declare (ignore event))