3 (defcfun (menu-reorder-child "gtk_menu_reorder_child") :void
8 (export 'menu-reorder-child)
10 (defcfun (menu-attach "gtk_menu_attach") :void
16 (bottom-attach :uint))
20 (defcfun gtk-menu-popup :void
22 (parent-menu-shell g-object)
23 (parent-menu-item g-object)
24 (menu-position-func :pointer)
27 (activate-time :uint32))
29 (defcallback gtk-menu-position-func-callback :void
30 ((menu g-object) (x :pointer) (y :pointer) (push-in :pointer) (data :pointer))
32 (multiple-value-bind (rx ry rpush-in) (funcall (get-stable-pointer-value data)
34 (setf (mem-ref x :int) rx
36 (mem-ref push-in :boolean) rpush-in))
37 (return-zero () (setf (mem-ref x :int) 0
39 (mem-ref push-in :boolean) nil))))
41 (defun menu-popup (menu &key parent-menu-shell parent-menu-item position-func (button 0) (activate-time (current-event-time)))
43 (with-stable-pointer (ptr position-func)
44 (gtk-menu-popup menu parent-menu-shell parent-menu-item
45 (callback gtk-menu-position-func-callback)
46 ptr button activate-time))
47 (gtk-menu-popup menu parent-menu-shell parent-menu-item (callback gtk-menu-position-func-callback) (null-pointer) (null-pointer) activate-time)))
51 (defcfun (menu-popdown "gtk_menu_popdown") :void
54 (export 'menu-popdown)
56 (defcfun (menu-reposition "gtk_menu_reposition") :void
59 (export 'menu-reposition)
61 ; TODO: gtk_menu_attach_to_widget
63 ; TODO: gtk_menu_detach
65 ; TODO: gtk_menu_get_attach_widget
67 ; TODO: gtk_menu_get_for_attach_widget
69 (defcfun (menu-shell-append "gtk_menu_shell_append") :void
73 (export 'menu-shell-append)
75 (defcfun (menu-shell-prepend "gtk_menu_shell_prepend") :void
79 (export 'menu-shell-prepend)
81 (defcfun (menu-shell-insert "gtk_menu_shell_insert") :void
86 (export 'menu-shell-insert)
88 (defcfun (menu-shell-deactivate "gtk_menu_shell_deactivate") :void
89 (menu-shell g-object))
91 (export 'menu-shell-deactivate)
93 (defcfun (menu-shell-select-item "gtk_menu_shell_select_item") :void
97 (export 'menu-shell-select-item)
99 (defcfun gtk-menu-shell-select-first :void
100 (menu-shell g-object)
101 (search-sensitive :boolean))
103 (defun menu-shell-select-first (menu-shell &optional (search-sensitive t))
104 (gtk-menu-shell-select-first menu-shell search-sensitive))
106 (export 'menu-shell-select-first)
108 (defcfun (menu-shell-deselect "gtk_menu_shell_deselect") :void
109 (menu-shell g-object))
111 (export 'menu-shell-deselect)
113 (defcfun gtk-menu-shell-activate-item :void
114 (menu-shell g-object)
116 (force-deactivate :boolean))
118 (defun menu-shell-activate-item (menu-shell menu-item &optional force-deactivate)
119 (gtk-menu-shell-activate-item menu-shell menu-item force-deactivate))
121 (export 'menu-shell-activate-item)
123 (defcfun (menu-shell-cancel "gtk_menu_shell_cancel") :void
124 (menu-shell g-object))
126 (export 'menu-shell-cancel)
130 (defcfun (toolbar-insert "gtk_toolbar_insert") :void
135 (export 'toolbar-insert)
137 (defcfun (toolbar-item-index "gtk_toolbar_get_item_index") :int
141 (export 'toolbar-item-index)
143 (defcfun (toolbar-items-count "gtk_toolbar_get_n_items") :int
146 (export 'toolbar-items-count)
148 (defcfun (toolbar-nth-item "gtk_toolbar_get_nth_item") g-object
152 (export 'toolbar-nth-item)
154 (defcfun (toolbar-get-drop-index "gtk_toolbar_get_drop_index") :int
159 (export 'toolbar-get-drop-index)
161 (defcfun (toolbar-set-drop-highlight-item "gtk_toolbar_set_drop_highlight_item") :void
166 (export 'toolbar-set-drop-highlight-item)
168 (defcfun (toolbar-unset-style "gtk_toolbar_unset_style") :void
171 (export 'toolbar-unset-style)
173 (defcfun (tool-item-retrieve-proxy-menu-item "gtk_tool_item_retrieve_proxy_menu_item") g-object
174 (tool-item g-object))
176 (export 'tool-item-retrieve-proxy-menu-item)
178 ; TODO: gtk_tool_item_get_proxy_menu_item
180 ; TODO: gtk_tool_item_set_proxy_menu_item
182 (defcfun (tool-item-rebuild-menu "gtk_tool_item_rebuild_menu") :void
183 (tool-item g-object))
185 (export 'tool-item-rebuild-menu)