3 (defcfun (ui-manager-insert-action-group "gtk_ui_manager_insert_action_group") :void
5 (action-group g-object)
8 (export 'ui-manager-insert-action-group)
10 (defcfun (ui-manager-remove-action-group "gtk_ui_manager_remove_action_group") :void
12 (action-group g-object))
14 (export 'ui-manager-remove-action-group)
16 (defcfun (ui-manager-action-groups "gtk_ui_manager_get_action_groups") (glist g-object :free-from-foreign nil)
17 (ui-manager g-object))
19 (export 'ui-manager-action-groups)
21 (defcfun (ui-manager-widget "gtk_ui_manager_get_widget") g-object
25 (export 'ui-manager-widget)
27 (defcfun (ui-manager-toplevels "gtk_ui_manager_get_toplevels") (gslist g-object :free-from-foreign t)
29 (types ui-manager-item-type))
31 (export 'ui-manager-toplevels)
33 (defcfun (ui-manager-action "gtk_ui_manager_get_action") g-object
37 (export 'ui-manager-action)
39 (defcfun gtk-ui-manager-add-ui-from-string :uint
45 ; TODO: add handling of error
47 (defun ui-manager-add-ui-from-string (ui-manager string)
48 (gtk-ui-manager-add-ui-from-string ui-manager string -1 (null-pointer)))
50 (export 'ui-manager-add-ui-from-string)
52 (defcfun gtk-ui-manager-add-ui-from-file :uint
57 (defun ui-manager-add-ui-from-file (ui-manager file-name)
58 (gtk-ui-manager-add-ui-from-file ui-manager file-name (null-pointer)))
60 (export 'ui-manager-add-ui-from-file)
62 (defcfun (ui-manager-new-merge-id "gtk_ui_manager_new_merge_id") :uint
63 (ui-manager g-object))
65 (export 'ui-manager-new-merge-id)
67 (defcfun (ui-manager-add-ui "gtk_ui_manager_add_ui") :void
73 (type ui-manager-item-type)
76 (export 'ui-manager-add-ui)
78 (defcfun (ui-manager-remove-ui "gtk_ui_manager_remove_ui") :void
82 (export 'ui-manager-remove-ui)
84 (defcfun (ui-manager-ensure-update "gtk_ui_manager_ensure_update") :void
85 (ui-manager g-object))
87 (export 'ui-manager-remove-ui)
89 (defcfun (action-group-action "gtk_action_group_get_action") g-object
90 (action-group g-object)
91 (action-name :string))
93 (export 'action-group-action)
95 (defcfun (action-group-actions "gtk_action_group_list_actions") (glist g-object :free-from-foreign t)
96 (action-group g-object))
98 (export 'action-group-actions)
100 (defcfun gtk-action-group-add-action-with-accel :void
101 (action-group g-object)
103 (accelerator :string))
105 (defun action-group-add-action (action-group action &key accelerator)
106 (gtk-action-group-add-action-with-accel action-group action (if accelerator accelerator (null-pointer))))
108 (export 'action-group-add-action)
110 (defcfun (action-group-remove-action "gtk_action_group_remove_action") :void
111 (action-group g-object)
114 (export 'action-group-remove-action)
116 (defcallback gtk-translate-func-callback (:string :free-to-foreign nil :free-from-foreign nil)
117 ((path (:string :free-from-foreign nil)) (data :pointer))
119 (funcall (get-stable-pointer-value data)
121 (return-untranslated () path)))
123 (defcfun gtk-action-group-set-translate-func :void
124 (action-group g-object)
127 (destroy-notify :pointer))
129 (defun action-group-set-translate-func (action-group func)
130 (gtk-action-group-set-translate-func action-group
131 (callback gtk-translate-func-callback)
132 (allocate-stable-pointer func)
133 (callback stable-pointer-free-destroy-notify-callback)))
135 (defcfun gtk-action-group-set-translation-domain :void
136 (action-group g-object)
139 (defcfun (action-group-translate-string "gtk_action_group_translate_string") (:string :free-from-foreign nil)
140 (action-group g-object)
141 (string (:string :free-to-foreign nil)))
143 (export 'action-group-translate-string)
145 (defcfun (action-is-sensitive "gtk_action_is_sensitive") :boolean
148 (export 'action-is-sensitive)
150 (defcfun (action-is-visible "gtk_action_is_visible") :boolean
153 (export 'action-is-visible)
155 (defcfun (action-create-icon "gtk_action_create_icon") g-object
157 (icon-size icon-size))
159 (export 'action-create-icon)
161 (defcfun (action-create-menu-item "gtk_action_create_menu_item") g-object
164 (export 'action-create-menu-item)
166 (defcfun (action-create-tool-item "gtk_action_create_tool_item") g-object
169 (export 'action-create-tool-item)
171 (defcfun (action-create-menu "gtk_action_create_menu") g-object
174 (export 'action-create-menu)
176 (defcfun (action-connect-proxy "gtk_action_connect_proxy") :void
180 (export 'action-connect-proxy)
182 (defcfun (action-disconnect-proxy "gtk_action_disconnect_proxy") :void
186 (export 'action-disconnect-proxy)
188 (defcfun (action-proxies "gtk_action_get_proxies") (gslist g-object :free-from-foreign nil)
191 (export 'action-proxies)
193 (defcfun (action-connect-accelerator "gtk_action_connect_accelerator") :void
196 (export 'action-connect-accelerator)
198 (defcfun (action-disconnect-accelerator "gtk_action_disconnect_accelerator") :void
201 (export 'action-disconnect-accelerator)
203 (defcfun (action-block-activate-from "gtk_action_block_activate_from") :void
207 (export 'action-block-activate-from)
209 (defcfun (action-unblock-activate-from "gtk_action_unblock_activate_from") :void
213 (export 'action-unblock-activate-from)