(:export t :type-initializer "gtk_pack_direction_get_type")
(:ltr 0) (:rtl 1) (:ttb 2) (:btt 3))
-(define-g-enum "GtkPolicyType" policy-type
- (:export t :type-initializer "gtk_policy_type_get_type")
- (:always 0) (:automatic 1) (:never 2))
-
(define-g-enum "GtkCornerType" corner-type
(:export t :type-initializer "gtk_corner_type_get_type")
(:top-left 0) (:bottom-left 1) (:top-right 2) (:bottom-right 3))
+(define-g-enum "GtkPolicyType" policy-type
+ (:export t :type-initializer "gtk_policy_type_get_type")
+ (:always 0) (:automatic 1) (:never 2))
+
(define-g-enum "GtkSensitivityType" sensitivity-type
(:export t :type-initializer "gtk_sensitivity_type_get_type")
(:auto 0) (:on 1) (:off 2))
(:export t :type-initializer "gtk_tree_model_flags_get_type")
(:iters-persist 1) (:list-only 2))
-(define-g-flags "GtkUIManagerItemType" u-i-manager-item-type (:export t)
+(define-g-flags "GtkUIManagerItemType" ui-manager-item-type (:export t)
(:auto 0) (:menubar 1) (:menu 2) (:toolbar 4) (:placeholder 8)
(:popup 16) (:menuitem 32) (:toolitem 64) (:separator 128)
(:accelerator 256))
(define-g-interface "GtkFileChooser" file-chooser
(:export t :type-initializer "gtk_file_chooser_get_type")
- (use-preview-label file-chooser-use-preview-label
- "use-preview-label" "gboolean" t t)
+ (preview-widget-active file-chooser-preview-widget-active
+ "preview-widget-active" "gboolean" t t)
+ (file-system-backend file-chooser-file-system-backend
+ "file-system-backend" "gchararray" nil nil)
+ (filter file-chooser-filter "filter" "GtkFileFilter" t t)
+ (local-only file-chooser-local-only "local-only" "gboolean"
+ t t)
(extra-widget file-chooser-extra-widget "extra-widget"
"GtkWidget" t t)
+ (action file-chooser-action "action" "GtkFileChooserAction"
+ t t)
+ (select-multiple file-chooser-select-multiple
+ "select-multiple" "gboolean" t t)
(do-overwrite-confirmation
file-chooser-do-overwrite-confirmation
"do-overwrite-confirmation" "gboolean" t t)
- (filter file-chooser-filter "filter" "GtkFileFilter" t t)
- (select-multiple file-chooser-select-multiple
- "select-multiple" "gboolean" t t)
- (action file-chooser-action "action" "GtkFileChooserAction"
- t t)
- (file-system-backend file-chooser-file-system-backend
- "file-system-backend" "gchararray" nil nil)
- (preview-widget file-chooser-preview-widget
- "preview-widget" "GtkWidget" t t)
- (preview-widget-active file-chooser-preview-widget-active
- "preview-widget-active" "gboolean" t t)
(show-hidden file-chooser-show-hidden "show-hidden"
"gboolean" t t)
- (local-only file-chooser-local-only "local-only" "gboolean"
- t t))
+ (use-preview-label file-chooser-use-preview-label
+ "use-preview-label" "gboolean" t t)
+ (preview-widget file-chooser-preview-widget
+ "preview-widget" "GtkWidget" t t)
+ (:cffi current-name file-chooser-current-name
+ (:string :free-to-foreign t :encoding :utf-8) nil
+ "gtk_file_chooser_set_current_name")
+ (:cffi filename file-chooser-filename
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_filename"
+ "gtk_file_chooser_set_filename")
+ (:cffi current-folder file-chooser-current-folder
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_current_folder"
+ "gtk_file_chooser_set_current_folder")
+ (:cffi uri file-chooser-uri
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_uri" "gtk_file_chooser_set_uri")
+ (:cffi current-folder-uri file-chooser-current-folder-uri
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_current_folder_uri"
+ "gtk_file_chooser_set_current_folder_uri")
+ (:cffi preview-filename file-chooser-preview-filename
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_preview_filename" nil)
+ (:cffi preview-uri file-chooser-preview-uri
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_preview_uri" nil))
(define-g-interface "GtkFileChooserEmbed" file-chooser-embed (:export t))
(:export t :type-initializer "gtk_recent_chooser_get_type")
(select-multiple recent-chooser-select-multiple
"select-multiple" "gboolean" t t)
- (limit recent-chooser-limit "limit" "gint" t t)
+ (filter recent-chooser-filter "filter" "GtkRecentFilter" t
+ t)
(show-tips recent-chooser-show-tips "show-tips" "gboolean"
t t)
+ (sort-type recent-chooser-sort-type "sort-type"
+ "GtkRecentSortType" t t)
(recent-manager recent-chooser-recent-manager
"recent-manager" "GtkRecentManager" nil nil)
- (show-private recent-chooser-show-private "show-private"
- "gboolean" t t)
(show-not-found recent-chooser-show-not-found
"show-not-found" "gboolean" t t)
- (sort-type recent-chooser-sort-type "sort-type"
- "GtkRecentSortType" t t)
+ (limit recent-chooser-limit "limit" "gint" t t)
(show-icons recent-chooser-show-icons "show-icons"
"gboolean" t t)
- (filter recent-chooser-filter "filter" "GtkRecentFilter" t
- t)
(local-only recent-chooser-local-only "local-only"
+ "gboolean" t t)
+ (show-private recent-chooser-show-private "show-private"
"gboolean" t t))
(define-g-interface "GtkToolShell" tool-shell
"gchararray" t t)
(tooltip-text widget-tooltip-text "tooltip-text"
"gchararray" t t)
- (window widget-window "window" "GdkWindow" t nil)))
+ (window widget-window "window" "GdkWindow" t nil)
+ (:cffi direction widget-direction text-direction
+ "gtk_widget_get_direction" "gtk_widget_set_direction")
+ (:cffi composite-name widget-composite-name
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_widget_get_composite_name"
+ "gtk_widget_set_composite_name")
+ (:cffi redraw-on-allocate widget-redraw-on-allocate
+ :boolean nil "gtk_widget_set_redraw_on_allocate")
+ (:cffi accessible widget-accessible g-object
+ "gtk_widget_get_accessible" nil)
+ (:cffi tooltip-window widget-tooltip-window g-object
+ "gtk_widget_get_tooltip_window"
+ "gtk_window_set_tooltip_window")))
(define-g-object-class "GtkContainer" container
(:superclass widget :export t :interfaces
"guint" t t)
(resize-mode container-resize-mode "resize-mode"
"GtkResizeMode" t t)
- (child container-child "child" "GtkWidget" nil t)))
+ (child container-child "child" "GtkWidget" nil t)
+ (:cffi focus-child container-focus-child g-object
+ "gtk_container_get_focus_child"
+ "gtk_container_set_focus_child")
+ (:cffi vadjustment-child container-vadjustment-child
+ g-object "gtk_container_get_vadjustment_child"
+ "gtk_container_set_vadjustment_child")
+ (:cffi hadjustment-child container-hadjustment-child
+ g-object "gtk_container_get_hadjustment_child"
+ "gtk_container_set_hadjustment_child")))
(define-g-object-class "GtkBin" bin
(:superclass container :export t :interfaces
:type-initializer "gtk_window_get_type")
((type gtk-window-type "type" "GtkWindowType" t nil)
(title gtk-window-title "title" "gchararray" t t)
- (role gtk-window-role "role" "gchararray" t t)
(startup-id gtk-window-startup-id "startup-id"
"gchararray" nil t)
+ (role gtk-window-role "role" "gchararray" t t)
(allow-shrink gtk-window-allow-shrink "allow-shrink"
"gboolean" t t)
(allow-grow gtk-window-allow-grow "allow-grow"
(:superclass dialog :export t :interfaces
("AtkImplementorIface" "GtkBuildable")
:type-initializer "gtk_font_selection_dialog_get_type")
- nil)
+ ((:cffi font-name font-selection-dialog-font-name
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_font_selection_dialog_get_font_name"
+ "gtk_font_selection_dialog_set_font_name")
+ (:cffi preview-text font-selection-dialog-preview-text
+ :string "gtk_font_selection_dialog_get_preview_text"
+ "gtk_font_selection_dialog_set_preview_text")
+ (:cffi apply-button font-selection-dialog-apply-button
+ g-object "gtk_font_selection_dialog_get_apply_button"
+ nil)
+ (:cffi cancel-button
+ font-selection-dialog-cancel-button g-object
+ "gtk_font_selection_dialog_get_cancel_button" nil)
+ (:cffi ok-button font-selection-dialog-ok-button
+ g-object "gtk_font_selection_dialog_get_ok_button"
+ nil)))
(define-g-object-class "GtkInputDialog" input-dialog
(:superclass dialog :export t :interfaces
(popup-shown combo-box-popup-shown "popup-shown"
"gboolean" t nil)
(button-sensitivity combo-box-button-sensitivity
- "button-sensitivity" "GtkSensitivityType" t t)))
+ "button-sensitivity" "GtkSensitivityType" t t)
+ (:cffi active-iter combo-box-active-iter
+ (g-boxed-ref tree-iter) combo-box-get-active-iter
+ "gtk_combo_box_set_active_iter")
+ (:cffi row-separator-func combo-box-separator-func nil
+ nil combo-box-set-separator-func)))
(define-g-object-class "GtkComboBoxEntry" combo-box-entry
(:superclass combo-box :export t :interfaces
(visible-vertical tool-item-visible-vertical
"visible-vertical" "gboolean" t t)
(is-important tool-item-is-important "is-important"
- "gboolean" t t)))
+ "gboolean" t t)
+ (:cffi expand tool-item-expand :boolean
+ "gtk_tool_item_get_expand" "gtk_tool_item_set_expand")
+ (:cffi use-drag-window tool-item-use-drag-window
+ :boolean "gtk_tool_item_get_use_drag_window"
+ "gtk_tool_item_set_use_drag_window")
+ (:cffi icon-size tool-item-icon-size icon-size
+ "gtk_tool_item_get_icon_size" nil)
+ (:cffi orientation tool-item-orientation orientation
+ "gtk_tool_item_get_orientation" nil)
+ (:cffi toolbar-style tool-item-toolbar-style
+ toolbar-style "gtk_tool_item_get_toolbar_style" nil)
+ (:cffi relief-style tool-item-relief-style relief-style
+ "gtk_tool_item_get_relief_style" nil)))
(define-g-object-class "GtkToolButton" tool-button
(:superclass tool-item :export t :interfaces
(:superclass tool-button :export t :interfaces
("AtkImplementorIface" "GtkBuildable")
:type-initializer "gtk_menu_tool_button_get_type")
- ((menu menu-tool-button-menu "menu" "GtkMenu" t t)))
+ ((menu menu-tool-button-menu "menu" "GtkMenu" t t)
+ (:cffi arrow-tooltip-text
+ menu-tool-button-arrow-tooltip-text :string nil
+ "gtk_menu_tool_button_set_arrow_tooltip_text")
+ (:cffi arrow-tooltip-markup
+ menu-tool-button-arrow-tooltip-markup :string nil
+ "gtk_menu_tool_button_set_arrow_tooltip_markup")))
(define-g-object-class "GtkToggleToolButton" toggle-tool-button
(:superclass tool-button :export t :interfaces
"gboolean" t t)
(tearoff-title menu-tearoff-title "tearoff-title"
"gchararray" t t)
- (monitor menu-monitor "monitor" "gint" t t)))
+ (monitor menu-monitor "monitor" "gint" t t)
+ (:cffi screen menu-screen g-object nil
+ "gtk_menu_set_screen")))
(define-g-object-class "GtkRecentChooserMenu" recent-chooser-menu
(:superclass menu :export t :interfaces
(:superclass container :export t :interfaces
("AtkImplementorIface" "GtkBuildable")
:type-initializer "gtk_fixed_get_type")
- nil)
+ ((:cffi has-window fixed-has-window :boolean
+ "gtk_fixed_get_has_window"
+ "gtk_gixed_set_has_window")))
(define-g-object-class "GtkPaned" paned
(:superclass container :export t :interfaces
(vadjustment layout-vadjustment "vadjustment"
"GtkAdjustment" t t)
(width layout-width "width" "guint" t t)
- (height layout-height "height" "guint" t t)))
+ (height layout-height "height" "guint" t t)
+ (:cffi bin-window layout-bin-window g-object
+ "gtk_layout_get_bin_window" nil)))
(define-g-object-class "GtkSocket" socket
(:superclass container :export t :interfaces
(sort-type c-list-sort-type "sort-type" "GtkSortType" t
t)))
+(define-g-object-class "GtkPathBar" path-bar
+ (:superclass container :export t :interfaces
+ ("AtkImplementorIface" "GtkBuildable")
+ :type-initializer "gtk_path_bar_get_type")
+ nil)
+
(define-g-object-class "GtkMisc" misc
(:superclass widget :export t :interfaces
("AtkImplementorIface" "GtkBuildable")
(detail-width-chars calendar-detail-width-chars
"detail-width-chars" "gint" t t)
(detail-height-rows calendar-detail-height-rows
- "detail-height-rows" "gint" t t)))
+ "detail-height-rows" "gint" t t)
+ (:cffi detail-function calendar-detail-function nil nil
+ calendar-set-detail-function)))
(define-g-object-class "GtkCellView" cell-view
(:superclass widget :export t :interfaces
(define-g-object-class "GtkFileFilter" file-filter
(:superclass gtk-object :export t :interfaces nil
:type-initializer "gtk_file_filter_get_type")
- nil)
+ ((:cffi name file-filter-name :string
+ "gtk_file_filter_get_name"
+ "gtk_file_filter_set_name")))
(define-g-object-class "GtkRecentFilter" recent-filter
(:superclass gtk-object :export t :interfaces nil
"gtk-enable-tooltips" "gboolean" t t)
(gtk-button-images settings-gtk-button-images
"gtk-button-images" "gboolean" t t)
- (gtk-menu-images settings-gtk-menu-images
- "gtk-menu-images" "gboolean" t t)
(gtk-scrolled-window-placement
settings-gtk-scrolled-window-placement
"gtk-scrolled-window-placement" "GtkCornerType" t t)
+ (gtk-label-select-on-focus
+ settings-gtk-label-select-on-focus
+ "gtk-label-select-on-focus" "gboolean" t t)
+ (gtk-menu-images settings-gtk-menu-images
+ "gtk-menu-images" "gboolean" t t)
(gtk-can-change-accels settings-gtk-can-change-accels
"gtk-can-change-accels" "gboolean" t t)
(gtk-menu-popup-delay settings-gtk-menu-popup-delay
"gtk-toolbar-style" "GtkToolbarStyle" t t)
(gtk-toolbar-icon-size settings-gtk-toolbar-icon-size
"gtk-toolbar-icon-size" "GtkIconSize" t t)
- (gtk-label-select-on-focus
- settings-gtk-label-select-on-focus
- "gtk-label-select-on-focus" "gboolean" t t)
(gtk-entry-select-on-focus
settings-gtk-entry-select-on-focus
"gtk-entry-select-on-focus" "gboolean" t t)
(sensitive action-sensitive "sensitive" "gboolean" t t)
(visible action-visible "visible" "gboolean" t t)
(action-group action-action-group "action-group"
- "GtkActionGroup" t t)))
+ "GtkActionGroup" t t)
+ (:cffi accel-path action-accel-path
+ (:string :free-from-foreign nil :free-to-foreign t)
+ "gtk_action_get_accel_path"
+ "gtk_action_set_accel_path")
+ (:cffi accel-group action-accel-group g-object nil
+ "gtk_action_set_accel_group")))
(define-g-object-class "GtkActionGroup" action-group
(:superclass g-object :export t :interfaces
((name action-group-name "name" "gchararray" t nil)
(sensitive action-group-sensitive "sensitive"
"gboolean" t t)
- (visible action-group-visible "visible" "gboolean" t
- t)))
+ (visible action-group-visible "visible" "gboolean" t t)
+ (:cffi translate-function
+ action-group-translate-function nil nil
+ action-group-set-translate-func)
+ (:cffi translation-domain
+ action-group-translation-domain nil nil
+ gtk-action-group-set-translation-domain)))
(define-g-object-class "GtkBuilder" builder
(:superclass g-object :export t :interfaces nil
"gboolean" t t)
(paragraph-background-set
text-tag-paragraph-background-set
- "paragraph-background-set" "gboolean" t t)))
+ "paragraph-background-set" "gboolean" t t)
+ (:cffi priority text-tag-priority :int
+ "gtk_text_tag_get_priority"
+ "gtk_text_tag_set_priority")))
(define-g-object-class "GtkTextTagTable" text-tag-table
(:superclass g-object :export t :interfaces nil
(define-g-object-class "GtkTreeSelection" tree-selection
(:superclass g-object :export t :interfaces nil
:type-initializer "gtk_tree_selection_get_type")
- ((:cffi mode tree-selection-mode tree-selection-mode
+ ((:cffi mode tree-selection-mode selection-mode
"gtk_tree_selection_get_mode"
"gtk_tree_selection_set_mode")
(:cffi select-function tree-selection-select-function
:type-initializer "gtk_tree_store_get_type")
nil)
-(define-g-object-class "GtkUIManager" u-i-manager
+(define-g-object-class "GtkUIManager" ui-manager
(:superclass g-object :export t :interfaces
("GtkBuildable"))
- ((add-tearoffs u-i-manager-add-tearoffs "add-tearoffs"
+ ((add-tearoffs ui-manager-add-tearoffs "add-tearoffs"
"gboolean" t t)
- (ui u-i-manager-ui "ui" "gchararray" t nil)))
+ (ui ui-manager-ui "ui" "gchararray" t nil)
+ (:cffi accel-group ui-manager-accel-group g-object
+ "gtk_ui_manager_get_accel_group" nil)))
(define-g-object-class "GtkWindowGroup" window-group
(:superclass g-object :export t :interfaces nil
:type-initializer "gtk_window_group_get_type")
nil)
+(define-g-object-class "GtkToggleAction" toggle-action
+ (:superclass action :export t :interfaces
+ ("GtkBuildable") :type-initializer
+ "gtk_toggle_action_get_type")
+ ((draw-as-radio toggle-action-draw-as-radio
+ "draw-as-radio" "gboolean" t t)
+ (active toggle-action-active "active" "gboolean" t t)))
+
+(define-g-object-class "GtkRecentAction" recent-action
+ (:superclass action :export t :interfaces
+ ("GtkBuildable" "GtkRecentChooser") :type-initializer
+ "gtk_recent_action_get_type")
+ ((show-numbers recent-action-show-numbers "show-numbers"
+ "gboolean" t t)))
+
+(define-g-object-class "GtkRadioAction" radio-action
+ (:superclass toggle-action :export t :interfaces
+ ("GtkBuildable") :type-initializer
+ "gtk_radio_action_get_type")
+ ((value radio-action-value "value" "gint" t t)
+ (group radio-action-group "group" "GtkRadioAction" nil
+ t)
+ (current-value radio-action-current-value
+ "current-value" "gint" t t)))
+
projects / cl-gtk2.git / blobdiff