projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add 'gtk-' prefix for GtkWindow accessors and functions; make 'keep-above' and 'keep...
[cl-gtk2.git]
/
generating.lisp
diff --git
a/generating.lisp
b/generating.lisp
index
57608c4
..
2701ab3
100644
(file)
--- 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)
(: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)
("GtkTreeViewColumn"
(:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object
"gtk_tree_view_column_get_tree_view" nil)