gtk/gtk.ui-manager.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (ui-manager-insert-action-group "gtk_ui_manager_insert_action_group") :void
   4   (ui-manager g-object)
   5   (action-group g-object)
   6   (pos :int))
   7
   8 (export 'ui-manager-insert-action-group)
   9
  10 (defcfun (ui-manager-remove-action-group "gtk_ui_manager_remove_action_group") :void
  11   (ui-manager g-object)
  12   (action-group g-object))
  13
  14 (export 'ui-manager-remove-action-group)
  15
  16 (defcfun (ui-manager-action-groups "gtk_ui_manager_get_action_groups") (glist g-object :free-from-foreign nil)
  17   (ui-manager g-object))
  18
  19 (export 'ui-manager-action-groups)
  20
  21 (defcfun (ui-manager-widget "gtk_ui_manager_get_widget") g-object
  22   (ui-manager g-object)
  23   (path :string))
  24
  25 (export 'ui-manager-widget)
  26
  27 (defcfun (ui-manager-toplevels "gtk_ui_manager_get_toplevels") (gslist g-object :free-from-foreign t)
  28   (ui-manager g-object)
  29   (types ui-manager-item-type))
  30
  31 (export 'ui-manager-toplevels)
  32
  33 (defcfun (ui-manager-action "gtk_ui_manager_get_action") g-object
  34   (ui-manager g-object)
  35   (path :string))
  36
  37 (export 'ui-manager-action)
  38
  39 (defcfun gtk-ui-manager-add-ui-from-string :uint
  40   (ui-manager g-object)
  41   (buffer :string)
  42   (length gssize)
  43   (error :pointer))
  44
  45 (defun ui-manager-add-ui-from-string (ui-manager string)
  46   (with-g-error (err)
  47     (gtk-ui-manager-add-ui-from-string ui-manager string -1 err)))
  48
  49 (export 'ui-manager-add-ui-from-string)
  50
  51 (defcfun gtk-ui-manager-add-ui-from-file :uint
  52   (ui-manager g-object)
  53   (file-name :string)
  54   (error :pointer))
  55
  56 (defun ui-manager-add-ui-from-file (ui-manager file-name)
  57   (with-g-error (err)
  58     (gtk-ui-manager-add-ui-from-file ui-manager file-name err)))
  59
  60 (export 'ui-manager-add-ui-from-file)
  61
  62 (defcfun (ui-manager-new-merge-id "gtk_ui_manager_new_merge_id") :uint
  63   (ui-manager g-object))
  64
  65 (export 'ui-manager-new-merge-id)
  66
  67 (defcfun (ui-manager-add-ui "gtk_ui_manager_add_ui") :void
  68   (ui-manager g-object)
  69   (merge-id :uint)
  70   (path :string)
  71   (name :string)
  72   (action :string)
  73   (type ui-manager-item-type)
  74   (top :boolean))
  75
  76 (export 'ui-manager-add-ui)
  77
  78 (defcfun (ui-manager-remove-ui "gtk_ui_manager_remove_ui") :void
  79   (ui-manager g-object)
  80   (merge-id :uint))
  81
  82 (export 'ui-manager-remove-ui)
  83
  84 (defcfun (ui-manager-ensure-update "gtk_ui_manager_ensure_update") :void
  85   (ui-manager g-object))
  86
  87 (export 'ui-manager-remove-ui)
  88
  89 (defcfun (action-group-action "gtk_action_group_get_action") g-object
  90   (action-group g-object)
  91   (action-name :string))
  92
  93 (export 'action-group-action)
  94
  95 (defcfun (action-group-actions "gtk_action_group_list_actions") (glist g-object :free-from-foreign t)
  96   (action-group g-object))
  97
  98 (export 'action-group-actions)
  99
 100 (defcfun gtk-action-group-add-action-with-accel :void
 101   (action-group g-object)
 102   (action g-object)
 103   (accelerator :string))
 104
 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))))
 107
 108 (export 'action-group-add-action)
 109
 110 (defcfun (action-group-remove-action "gtk_action_group_remove_action") :void
 111   (action-group g-object)
 112   (action g-object))
 113
 114 (export 'action-group-remove-action)
 115
 116 (defcallback gtk-translate-func-callback (:string :free-to-foreign nil :free-from-foreign nil)
 117     ((path (:string :free-from-foreign nil)) (data :pointer))
 118   (restart-case
 119       (funcall (get-stable-pointer-value data)
 120                path)
 121     (return-untranslated () path)))
 122
 123 (defcfun gtk-action-group-set-translate-func :void
 124   (action-group g-object)
 125   (func :pointer)
 126   (data :pointer)
 127   (destroy-notify :pointer))
 128
 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)))
 134
 135 (defcfun gtk-action-group-set-translation-domain :void
 136   (action-group g-object)
 137   (domain :string))
 138
 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)))
 142
 143 (export 'action-group-translate-string)
 144
 145 (defcfun (action-is-sensitive "gtk_action_is_sensitive") :boolean
 146   (action g-object))
 147
 148 (export 'action-is-sensitive)
 149
 150 (defcfun (action-is-visible "gtk_action_is_visible") :boolean
 151   (action g-object))
 152
 153 (export 'action-is-visible)
 154
 155 (defcfun (action-create-icon "gtk_action_create_icon") g-object
 156   (action g-object)
 157   (icon-size icon-size))
 158
 159 (export 'action-create-icon)
 160
 161 (defcfun (action-create-menu-item "gtk_action_create_menu_item") g-object
 162   (action g-object))
 163
 164 (export 'action-create-menu-item)
 165
 166 (defcfun (action-create-tool-item "gtk_action_create_tool_item") g-object
 167   (action g-object))
 168
 169 (export 'action-create-tool-item)
 170
 171 (defcfun (action-create-menu "gtk_action_create_menu") g-object
 172   (action g-object))
 173
 174 (export 'action-create-menu)
 175
 176 (defcfun (action-connect-proxy "gtk_action_connect_proxy") :void
 177   (action g-object)
 178   (proxy g-object))
 179
 180 (export 'action-connect-proxy)
 181
 182 (defcfun (action-disconnect-proxy "gtk_action_disconnect_proxy") :void
 183   (action g-object)
 184   (proxy g-object))
 185
 186 (export 'action-disconnect-proxy)
 187
 188 (defcfun (action-proxies "gtk_action_get_proxies") (gslist g-object :free-from-foreign nil)
 189   (action g-object))
 190
 191 (export 'action-proxies)
 192
 193 (defcfun (action-connect-accelerator "gtk_action_connect_accelerator") :void
 194   (action g-object))
 195
 196 (export 'action-connect-accelerator)
 197
 198 (defcfun (action-disconnect-accelerator "gtk_action_disconnect_accelerator") :void
 199   (action g-object))
 200
 201 (export 'action-disconnect-accelerator)
 202
 203 (defcfun (action-block-activate "gtk_action_block_activate") :void
 204   (action (g-object action)))
 205
 206 (export 'action-block-activate)
 207
 208 (defcfun (action-unblock-activate "gtk_action_unblock_activate") :void
 209   (action (g-object action)))
 210
 211 (export 'action-unblock-activate)
 212
 213 (defcfun (action-block-activate-from "gtk_action_block_activate_from") :void
 214   (action g-object)
 215   (proxy g-object))
 216
 217 (export 'action-block-activate-from)
 218
 219 (defcfun (action-unblock-activate-from "gtk_action_unblock_activate_from") :void
 220   (action g-object)
 221   (proxy g-object))
 222
 223 (export 'action-unblock-activate-from)
 224
 225 (defcfun (radio-action-get-group "gtk_radio_action_get_group") (gslist (g-object radio-action) :free-from-foreign nil)
 226   (action (g-object radio-action)))
 227
 228 (export 'radio-action-get-group)