gtk-glext: Add a forgotten with-gl-context
authorDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Mon, 7 Sep 2009 17:37:31 +0000 (21:37 +0400)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Mon, 7 Sep 2009 17:37:31 +0000 (21:37 +0400)
gtk-glext/gtkglext-drawing-area.lisp

index 768991b..47cf234 100644 (file)
@@ -34,7 +34,8 @@
 (defun gl-drawing-area-realize (widget)
   #+nil(format t "realize~%")
   (bwhen (init-fn (gl-drawing-area-on-init widget))
-    (funcall init-fn widget))
+    (with-gl-context (widget)
+      (funcall init-fn widget)))
   (multiple-value-bind (width height)
       (gdk:drawable-get-size (widget-window widget))
     (resize widget width height))