-(defcfun (window-set-has-frame "gtk_window_set_has_frame") :void
- (window (g-object gtk-window))
- (setting :boolean))
-
-(export 'window-set-has-frame)
-
-(defcfun (window-set-mnemonic-modifier "gtk_window_set_mnemonic_modifier") :void
- (window (g-object gtk-window))
- (modifier modifier-type))
-
-(export 'window-set-mnemonic-modifier)
-
-(defcfun (window-icon-list "gtk_window_get_icon_list") (glist pixbuf :free-from-foreign t)
- (window (g-object gtk-window)))
-
-(defcfun (window-set-icon-list "gtk_window_set_icon_list") :void
- (window (g-object gtk-window))
- (icons (glist pixbuf :free-to-foreign t)))
-
-(defun (setf window-icon-list) (icon-list window)
- (window-set-icon-list window icon-list))
-
-(export 'window-icon-list)
-
-(defcfun (%window-get-position "gtk_window_get_position") :void