Use new GType designators

[cl-gtk2.git] / gtk-glext / demo.lisp

diff --git a/gtk-glext/demo.lisp b/gtk-glext/demo.lisp
index 1efbde7..d2c1fe7 100644 (file)
--- 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))