From 661838baed02531a84bd652334e74cbbd4f69bd9 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Mon, 7 Sep 2009 21:37:31 +0400 Subject: [PATCH] gtk-glext: Add a forgotten with-gl-context --- gtk-glext/gtkglext-drawing-area.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4