From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 29 Oct 2009 15:08:42 +0000 (+0300)
Subject: Fix typo in gl-drawing-area code
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6319f51619cf4a23641f01a49f22187009e3a048;p=cl-gtk2.git

Fix typo in gl-drawing-area code
---

diff --git a/gtk-glext/gtkglext-drawing-area.lisp b/gtk-glext/gtkglext-drawing-area.lisp
index 47cf234..06d40ba 100644
--- a/gtk-glext/gtkglext-drawing-area.lisp
+++ b/gtk-glext/gtkglext-drawing-area.lisp
@@ -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))