X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk-glext%2Fdemo.lisp;h=d2c1fe7c8ca8d6b40eb7c649a331a3a8208dab38;hb=c36dad68c5724171792b032fe56d6d531fc2571a;hp=1efbde7ea0e933d910e1bf892eff005c393967d2;hpb=174477fdd5bd8bef8601ed1ad7076db4c4f3f81e;p=cl-gtk2.git

diff --git a/gtk-glext/demo.lisp b/gtk-glext/demo.lisp
index 1efbde7..d2c1fe7 100644
--- a/gtk-glext/demo.lisp
+++ b/gtk-glext/demo.lisp
@@ -71,7 +71,9 @@
                                  :default-height 500))
           (area (make-instance 'gl-drawing-area :on-expose #'planet-draw :on-resize #'planet-resize)))
       (container-add window area)
-      (pushnew :key-press-mask (gdk:gdk-window-events (widget-window window)))
+      (connect-signal window "realize"
+                      (lambda (w)
+                        (pushnew :key-press-mask (gdk:gdk-window-events (widget-window window)))))
       (connect-signal window "key-press-event"
                       (lambda (w e)
                         (declare (ignore w))