-(export 'window-propagate-key-event)
-
-(defcfun (window-focus "gtk_window_get_focus") (g-object widget)
- (window (g-object gtk-window)))
-
-(defcfun (window-set-focus "gtk_window_set_focus") :void
- (window (g-object gtk-window))
- (focus (g-object widget)))
-
-(defun (setf window-focus) (focus window)
- (window-set-focus window focus)
- focus)
-
-(export 'window-focus)
-
-(defcfun (window-default-widget "gtk_window_get_default_widget") (g-object widget)
- (window (g-object gtk-window)))
-
-(defcfun (window-set-default-widget "gtk_window_set_default") :void
- (window (g-object gtk-window))
- (default-widget (g-object widget)))
-
-(defun (setf window-default-widget) (default-widget window)
- (window-set-default-widget window default-widget)
- default-widget)
-
-(export 'window-default-widget)