(pushnew :key-press-mask (gdk:gdk-window-events (widget-window window)))))
(connect-signal window "key-press-event"
(lambda (w e)
(pushnew :key-press-mask (gdk:gdk-window-events (widget-window window)))))
(connect-signal window "key-press-event"
(lambda (w e)