X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.window.lisp;h=54d67f01d075860be531db4a9b5f2e89300a7d75;hb=e4a92f10d2d86fa38ee76a88198e229954ae0780;hp=85867f5911f1759913d8afe3860e05ae2ca7e29e;hpb=47ff89867c0fe2a59defeccb1af6bdc609952572;p=cl-gtk2.git

diff --git a/gtk/gtk.window.lisp b/gtk/gtk.window.lisp
index 85867f5..54d67f0 100644
--- a/gtk/gtk.window.lisp
+++ b/gtk/gtk.window.lisp
@@ -158,18 +158,6 @@
 
 (export 'gtk-window-set-frame-dimensions)
 
-(defcfun (gtk-window-set-has-frame "gtk_window_set_has_frame") :void
-  (window (g-object gtk-window))
-  (setting :boolean))
-
-(export 'gtk-window-set-has-frame)
-
-(defcfun (gtk-window-set-mnemonic-modifier "gtk_window_set_mnemonic_modifier") :void
-  (window (g-object gtk-window))
-  (modifier modifier-type))
-
-(export 'gtk-window-set-mnemonic-modifier)
-
 (defcfun (%gtk-window-get-position "gtk_window_get_position") :void
   (window (g-object gtk-window))
   (root-x (:pointer :int))
@@ -221,16 +209,16 @@
 
 (export 'window-resize)
 
-(defcfun (default-window-icon-list "gtk_window_get_default_icon_list") (glist (g-object pixbuf)))
+(defcfun (window-default-icon-list "gtk_window_get_default_icon_list") (glist (g-object pixbuf)))
 
 (defcfun (set-default-window-icon-list "gtk_window_set_default_icon_list") :boolean
   (icon-list (glist (g-object pixbuf))))
 
-(defun (setf default-window-icon-list) (icon-list)
+(defun (setf window-default-icon-list) (icon-list)
   (set-default-window-icon-list icon-list)
   icon-list)
 
-(export 'default-window-icon-list)
+(export 'window-default-icon-list)
 
 (defcfun (set-default-window-icon "gtk_window_set_default_icon") :void
   (icon (g-object pixbuf)))