gtk-glext: Add a forgotten with-gl-context

[cl-gtk2.git] / gtk-glext / gtkglext-drawing-area.lisp

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