From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Mon, 7 Sep 2009 17:37:31 +0000 (+0400)
Subject: gtk-glext: Add a forgotten with-gl-context
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=661838baed02531a84bd652334e74cbbd4f69bd9;p=cl-gtk2.git

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

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