X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=generating.lisp;h=2701ab39433ae62cbde94de00c3db0eab9c962be;hb=983c0b0b3b6c3f9c86775baee857d7d22837d979;hp=57608c43a7cf2aafba4ac635e30211163f908994;hpb=e4a92f10d2d86fa38ee76a88198e229954ae0780;p=cl-gtk2.git

diff --git a/generating.lisp b/generating.lisp
index 57608c4..2701ab3 100644
--- a/generating.lisp
+++ b/generating.lisp
@@ -122,7 +122,11 @@
 	(:cffi gtk::icon-list gtk::gtk-window-icon-list (glist gtk::pixbuf :free-from-foreign t :free-to-foreign t)
 	 "gtk_window_get_icon_list" "gtk_window_set_icon_list")
 	(:cffi gtk::group gtk::gtk-window-group (g-object gtk::window-group)
-	 "gtk_window_get_group" nil))
+	 "gtk_window_get_group" nil)
+        (:cffi gtk::keep-above gtk::gtk-window-keep-above :boolean
+         nil "gtk_window_set_keep_above")
+        (:cffi gtk::keep-below gtk::gtk-window-keep-below :boolean
+         nil "gtk_window_set_keep_below"))
        ("GtkTreeViewColumn"
         (:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object
 	 "gtk_tree_view_column_get_tree_view" nil)