X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.generated-classes.lisp;h=fe161a295837c0b2b2c7de380140b1c0509cd721;hb=c508c5b28269268b390116bd53ee15a334b96bc8;hp=69ccf6508545078d8217c15848c31caba8c49235;hpb=5ba8542f0e89dd6d1343779b806f618800b11157;p=cl-gtk2.git diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index 69ccf65..fe161a2 100644 --- a/gtk/gtk.generated-classes.lisp +++ b/gtk/gtk.generated-classes.lisp @@ -7,15 +7,15 @@ (:export t :type-initializer "gtk_size_group_mode_get_type") (:none 0) (:horizontal 1) (:vertical 2) (:both 3)) +(define-g-enum "GtkUnit" unit (:export t :type-initializer "gtk_unit_get_type") + (:pixel 0) (:points 1) (:inch 2) (:mm 3)) + (define-g-enum "GtkPrintStatus" print-status (:export t :type-initializer "gtk_print_status_get_type") (:initial 0) (:preparing 1) (:generating-data 2) (:sending-data 3) (:pending 4) (:pending-issue 5) (:printing 6) (:finished 7) (:finished-aborted 8)) -(define-g-enum "GtkUnit" unit (:export t :type-initializer "gtk_unit_get_type") - (:pixel 0) (:points 1) (:inch 2) (:mm 3)) - (define-g-enum "GtkRecentSortType" recent-sort-type (:export t :type-initializer "gtk_recent_sort_type_get_type") (:none 0) (:mru 1) (:lru 2) (:custom 3)) @@ -38,9 +38,9 @@ "gtk_tree_view_column_sizing_get_type") (:grow-only 0) (:autosize 1) (:fixed 2)) -(define-g-enum "GtkProgressBarStyle" progress-bar-style - (:export t :type-initializer "gtk_progress_bar_style_get_type") - (:continuous 0) (:discrete 1)) +(define-g-enum "GtkSortType" sort-type + (:export t :type-initializer "gtk_sort_type_get_type") + (:ascending 0) (:descending 1)) (define-g-enum "GtkProgressBarOrientation" progress-bar-orientation (:export t :type-initializer @@ -48,6 +48,10 @@ (:left-to-right 0) (:right-to-left 1) (:bottom-to-top 2) (:top-to-bottom 3)) +(define-g-enum "GtkProgressBarStyle" progress-bar-style + (:export t :type-initializer "gtk_progress_bar_style_get_type") + (:continuous 0) (:discrete 1)) + (define-g-enum "GtkUpdateType" update-type (:export t :type-initializer "gtk_update_type_get_type") (:continuous 0) (:discontinuous 1) (:delayed 2)) @@ -74,10 +78,6 @@ (:export t :type-initializer "gtk_arrow_type_get_type") (:up 0) (:down 1) (:left 2) (:right 3) (:none 4)) -(define-g-enum "GtkSortType" sort-type - (:export t :type-initializer "gtk_sort_type_get_type") - (:ascending 0) (:descending 1)) - (define-g-enum "GtkToolbarStyle" toolbar-style (:export t :type-initializer "gtk_toolbar_style_get_type") (:icons 0) (:text 1) (:both 2) (:both-horiz 3)) @@ -95,6 +95,10 @@ (:default-style 0) (:spread 1) (:edge 2) (:start 3) (:end 4) (:center 5)) +(define-g-enum "GtkOrientation" orientation + (:export t :type-initializer "gtk_orientation_get_type") + (:horizontal 0) (:vertical 1)) + (define-g-enum "GtkSelectionMode" selection-mode (:export t :type-initializer "gtk_selection_mode_get_type") (:none 0) (:single 1) (:browse 2) (:multiple 3) (:extended 3)) @@ -129,10 +133,6 @@ (:invalid 0) (:menu 1) (:small-toolbar 2) (:large-toolbar 3) (:button 4) (:dnd 5) (:dialog 6)) -(define-g-enum "GtkOrientation" orientation - (:export t :type-initializer "gtk_orientation_get_type") - (:horizontal 0) (:vertical 1)) - (define-g-enum "GtkPositionType" position-type (:export t :type-initializer "gtk_position_type_get_type") (:left 0) (:right 1) (:top 2) (:bottom 3)) @@ -150,15 +150,15 @@ (:none 0) (:ok 1) (:close 2) (:cancel 3) (:yes-no 4) (:ok-cancel 5)) -(define-g-enum "GtkWindowType" window-type - (:export t :type-initializer "gtk_window_type_get_type") - (:toplevel 0) (:popup 1)) - (define-g-enum "GtkWindowPosition" window-position (:export t :type-initializer "gtk_window_position_get_type") (:none 0) (:center 1) (:mouse 2) (:center-always 3) (:center-on-parent 4)) +(define-g-enum "GtkWindowType" window-type + (:export t :type-initializer "gtk_window_type_get_type") + (:toplevel 0) (:popup 1)) + (define-g-enum "GtkResizeMode" resize-mode (:export t :type-initializer "gtk_resize_mode_get_type") (:parent 0) (:queue 1) (:immediate 2)) @@ -227,7 +227,7 @@ (:invalid-type-function 0) (:unhandled-tag 1) (:missing-attribute 2) (:invalid-attribute 3) (:invalid-tag 4) (:missing-property-value 5) (:invalid-value 6) - (:version-mismatch 7)) + (:version-mismatch 7) (:duplicate-id 8)) (define-g-enum "GtkCellType" cell-type (:export t :type-initializer "gtk_cell_type_get_type") @@ -274,7 +274,8 @@ (define-g-enum "GtkFileChooserError" file-chooser-error (:export t :type-initializer "gtk_file_chooser_error_get_type") - (:nonexistent 0) (:bad-filename 1) (:already-exists 2)) + (:nonexistent 0) (:bad-filename 1) (:already-exists 2) + (:incomplete-hostname 3)) (define-g-enum "GtkIconThemeError" icon-theme-error (:export t :type-initializer "gtk_icon_theme_error_get_type") @@ -533,10 +534,10 @@ (: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)) + (:accelerator 256) (:popup-with-accels 512)) (define-g-flags "GtkWidgetFlags" widget-flags (:export t :type-initializer "gtk_widget_flags_get_type") @@ -562,28 +563,52 @@ (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) - (extra-widget file-chooser-extra-widget "extra-widget" - "GtkWidget" 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" + (filter file-chooser-filter "filter" "GtkFileFilter" t t) + (local-only file-chooser-local-only "local-only" "gboolean" 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) + (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) + (extra-widget file-chooser-extra-widget "extra-widget" + "GtkWidget" t t) (show-hidden file-chooser-show-hidden "show-hidden" "gboolean" t t) - (local-only file-chooser-local-only "local-only" "gboolean" - t t)) + (action file-chooser-action "action" "GtkFileChooserAction" + 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)) @@ -606,29 +631,41 @@ (define-g-interface "GtkRecentChooser" recent-chooser (: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) - (show-tips recent-chooser-show-tips "show-tips" "gboolean" - 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-tips recent-chooser-show-tips "show-tips" "gboolean" + t t) + (filter recent-chooser-filter "filter" "GtkRecentFilter" 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) + (recent-manager recent-chooser-recent-manager + "recent-manager" "GtkRecentManager" nil nil) + (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)) + "gboolean" t t) + (sort-type recent-chooser-sort-type "sort-type" + "GtkRecentSortType" t t) + (select-multiple recent-chooser-select-multiple + "select-multiple" "gboolean" t t)) (define-g-interface "GtkToolShell" tool-shell (:export t :type-initializer "gtk_tool_shell_get_type")) +(define-g-interface "GtkOrientable" orientable + (:export t :type-initializer "gtk_orientable_get_type") + (orientation orientable-orientation "orientation" + "GtkOrientation" t t)) + +(define-g-interface "GtkActivatable" activatable + (:export t :type-initializer "gtk_activatable_get_type") + (related-action activatable-related-action "related-action" + "GtkAction" t t) + (use-action-appearance activatable-use-action-appearance + "use-action-appearance" "gboolean" t t)) + (define-g-interface "AtkImplementorIface" atk-implementor-iface (:export t)) (define-g-object-class "GtkObject" gtk-object @@ -674,7 +711,20 @@ "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_widget_set_tooltip_window"))) (define-g-object-class "GtkContainer" container (:superclass widget :export t :interfaces @@ -684,7 +734,16 @@ "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 focus-vadjustment container-focus-vadjustment + g-object "gtk_container_get_focus_vadjustment" + "gtk_container_set_focus_vadjustment") + (:cffi focus-hadjustment container-focus-hadjustment + g-object "gtk_container_get_focus_hadjustment" + "gtk_container_set_focus_hadjustment"))) (define-g-object-class "GtkBin" bin (:superclass container :export t :interfaces @@ -698,9 +757,9 @@ :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" @@ -806,7 +865,22 @@ (: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 @@ -861,17 +935,20 @@ (define-g-object-class "GtkMenuItem" menu-item (:superclass item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_menu_item_get_type") ((right-justified menu-item-right-justified "right-justified" "gboolean" t t) (submenu menu-item-submenu "submenu" "GtkMenu" t t) (accel-path menu-item-accel-path "accel-path" - "gchararray" t t))) + "gchararray" t t) + (label menu-item-label "label" "gchararray" t t) + (use-underline menu-item-use-underline "use-underline" + "gboolean" t t))) (define-g-object-class "GtkCheckMenuItem" check-menu-item (:superclass menu-item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_check_menu_item_get_type") ((active check-menu-item-active "active" "gboolean" t t) (inconsistent check-menu-item-inconsistent @@ -881,26 +958,32 @@ (define-g-object-class "GtkRadioMenuItem" radio-menu-item (:superclass check-menu-item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_radio_menu_item_get_type") ((group radio-menu-item-group "group" "GtkRadioMenuItem" nil t))) (define-g-object-class "GtkImageMenuItem" image-menu-item (:superclass menu-item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_image_menu_item_get_type") - ((image image-menu-item-image "image" "GtkWidget" t t))) + ((image image-menu-item-image "image" "GtkWidget" t t) + (use-stock image-menu-item-use-stock "use-stock" + "gboolean" t t) + (accel-group image-menu-item-accel-group "accel-group" + "GtkAccelGroup" nil t) + (always-show-image image-menu-item-always-show-image + "always-show-image" "gboolean" t t))) (define-g-object-class "GtkSeparatorMenuItem" separator-menu-item (:superclass menu-item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_separator_menu_item_get_type") nil) (define-g-object-class "GtkTearoffMenuItem" tearoff-menu-item (:superclass menu-item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_tearoff_menu_item_get_type") nil) @@ -912,7 +995,7 @@ (define-g-object-class "GtkButton" button (:superclass bin :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_button_get_type") ((label button-label "label" "gchararray" t t) (image button-image "image" "GtkWidget" t t) @@ -929,7 +1012,7 @@ (define-g-object-class "GtkToggleButton" toggle-button (:superclass button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_toggle_button_get_type") ((active toggle-button-active "active" "gboolean" t t) (inconsistent toggle-button-inconsistent "inconsistent" @@ -939,20 +1022,20 @@ (define-g-object-class "GtkCheckButton" check-button (:superclass toggle-button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_check_button_get_type") nil) (define-g-object-class "GtkRadioButton" radio-button (:superclass check-button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_radio_button_get_type") ((group radio-button-group "group" "GtkRadioButton" nil t))) (define-g-object-class "GtkColorButton" color-button (:superclass button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_color_button_get_type") ((use-alpha color-button-use-alpha "use-alpha" "gboolean" t t) @@ -962,7 +1045,7 @@ (define-g-object-class "GtkFontButton" font-button (:superclass button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_font_button_get_type") ((title font-button-title "title" "gchararray" t t) (font-name font-button-font-name "font-name" @@ -978,18 +1061,17 @@ (define-g-object-class "GtkLinkButton" link-button (:superclass button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_link_button_get_type") ((uri link-button-uri "uri" "gchararray" t t) (visited link-button-visited "visited" "gboolean" t t))) (define-g-object-class "GtkScaleButton" scale-button (:superclass button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable" + "GtkOrientable") :type-initializer "gtk_scale_button_get_type") - ((orientation scale-button-orientation "orientation" - "GtkOrientation" t t) - (value scale-button-value "value" "gdouble" t t) + ((value scale-button-value "value" "gdouble" t t) (size scale-button-size "size" "GtkIconSize" t t) (adjustment scale-button-adjustment "adjustment" "GtkAdjustment" t t) @@ -997,7 +1079,8 @@ (define-g-object-class "GtkVolumeButton" volume-button (:superclass scale-button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable" + "GtkOrientable") :type-initializer "gtk_volume_button_get_type") nil) @@ -1067,7 +1150,12 @@ (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 @@ -1118,18 +1206,31 @@ (define-g-object-class "GtkToolItem" tool-item (:superclass bin :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_tool_item_get_type") ((visible-horizontal tool-item-visible-horizontal "visible-horizontal" "gboolean" t t) (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 - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_tool_button_get_type") ((label tool-button-label "label" "gchararray" t t) (use-underline tool-button-use-underline @@ -1145,27 +1246,33 @@ (define-g-object-class "GtkMenuToolButton" menu-tool-button (:superclass tool-button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "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 - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_toggle_tool_button_get_type") ((active toggle-tool-button-active "active" "gboolean" t t))) (define-g-object-class "GtkRadioToolButton" radio-tool-button (:superclass toggle-tool-button :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_radio_tool_button_get_type") ((group radio-tool-button-group "group" "GtkRadioToolButton" nil t))) (define-g-object-class "GtkSeparatorToolItem" separator-tool-item (:superclass tool-item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_separator_tool_item_get_type") ((draw separator-tool-item-draw "draw" "gboolean" t t))) @@ -1222,11 +1329,13 @@ "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 - ("AtkImplementorIface" "GtkBuildable" + ("AtkImplementorIface" "GtkActivatable" "GtkBuildable" "GtkRecentChooser") :type-initializer "gtk_recent_chooser_menu_get_type") ((show-numbers recent-chooser-menu-show-numbers @@ -1357,7 +1466,7 @@ (define-g-object-class "GtkBox" box (:superclass container :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_box_get_type") ((spacing box-spacing "spacing" "gint" t t) (homogeneous box-homogeneous "homogeneous" "gboolean" t @@ -1365,32 +1474,32 @@ (define-g-object-class "GtkButtonBox" button-box (:superclass box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_button_box_get_type") ((layout-style button-box-layout-style "layout-style" "GtkButtonBoxStyle" t t))) (define-g-object-class "GtkHButtonBox" h-button-box (:superclass button-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hbutton_box_get_type") nil) (define-g-object-class "GtkVButtonBox" v-button-box (:superclass button-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vbutton_box_get_type") nil) (define-g-object-class "GtkVBox" v-box (:superclass box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vbox_get_type") nil) (define-g-object-class "GtkColorSelection" color-selection (:superclass v-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_color_selection_get_type") ((has-palette color-selection-has-palette "has-palette" "gboolean" t t) @@ -1405,13 +1514,13 @@ (define-g-object-class "GtkFileChooserWidget" file-chooser-widget (:superclass v-box :export t :interfaces ("AtkImplementorIface" "GtkBuildable" "GtkFileChooser" - "GtkFileChooserEmbed") + "GtkFileChooserEmbed" "GtkOrientable") :type-initializer "gtk_file_chooser_widget_get_type") nil) (define-g-object-class "GtkFontSelection" font-selection (:superclass v-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_font_selection_get_type") ((font-name font-selection-font-name "font-name" "gchararray" t t) @@ -1421,26 +1530,27 @@ (define-g-object-class "GtkGammaCurve" gamma-curve (:superclass v-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_gamma_curve_get_type") nil) (define-g-object-class "GtkRecentChooserWidget" recent-chooser-widget (:superclass v-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable" "GtkRecentChooser") :type-initializer "gtk_recent_chooser_widget_get_type") nil) (define-g-object-class "GtkHBox" h-box (:superclass box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hbox_get_type") nil) (define-g-object-class "GtkFileChooserButton" file-chooser-button (:superclass h-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" "GtkFileChooser") + ("AtkImplementorIface" "GtkBuildable" "GtkFileChooser" + "GtkOrientable") :type-initializer "gtk_file_chooser_button_get_type") ((dialog file-chooser-button-dialog "dialog" "GtkFileChooser" nil nil) @@ -1453,35 +1563,22 @@ (define-g-object-class "GtkStatusbar" statusbar (:superclass h-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_statusbar_get_type") ((has-resize-grip statusbar-has-resize-grip "has-resize-grip" "gboolean" t t))) -(define-g-object-class "GtkCombo" combo - (:superclass h-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") - :type-initializer "gtk_combo_get_type") - ((enable-arrow-keys combo-enable-arrow-keys - "enable-arrow-keys" "gboolean" t t) - (enable-arrows-always combo-enable-arrows-always - "enable-arrows-always" "gboolean" t t) - (case-sensitive combo-case-sensitive "case-sensitive" - "gboolean" t t) - (allow-empty combo-allow-empty "allow-empty" "gboolean" - t t) - (value-in-list combo-value-in-list "value-in-list" - "gboolean" t t))) - (define-g-object-class "GtkFixed" fixed (: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_fixed_set_has_window"))) (define-g-object-class "GtkPaned" paned (:superclass container :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_paned_get_type") ((position paned-position "position" "gint" t t) (position-set paned-position-set "position-set" @@ -1493,13 +1590,13 @@ (define-g-object-class "GtkHPaned" h-paned (:superclass paned :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hpaned_get_type") nil) (define-g-object-class "GtkVPaned" v-paned (:superclass paned :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vpaned_get_type") nil) @@ -1512,7 +1609,9 @@ (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 @@ -1560,21 +1659,21 @@ (overwrite text-view-overwrite "overwrite" "gboolean" t t) (accepts-tab text-view-accepts-tab "accepts-tab" - "gboolean" t t))) + "gboolean" t t) + (im-module text-view-im-module "im-module" "gchararray" + t t))) (define-g-object-class "GtkToolbar" toolbar (:superclass container :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" "GtkToolShell") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable" + "GtkToolShell") :type-initializer "gtk_toolbar_get_type") - ((orientation toolbar-orientation "orientation" - "GtkOrientation" t t) - (toolbar-style toolbar-toolbar-style "toolbar-style" + ((toolbar-style toolbar-toolbar-style "toolbar-style" "GtkToolbarStyle" t t) (show-arrow toolbar-show-arrow "show-arrow" "gboolean" t t) (tooltips toolbar-tooltips "tooltips" "gboolean" t t) - (icon-size toolbar-icon-size "icon-size" "GtkIconSize" - t t) + (icon-size toolbar-icon-size "icon-size" "gint" t t) (icon-size-set toolbar-icon-size-set "icon-size-set" "gboolean" t t))) @@ -1584,25 +1683,6 @@ :type-initializer "gtk_tree_get_type") nil) -(define-g-object-class "GtkCList" c-list - (:superclass container :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") - :type-initializer "gtk_clist_get_type") - ((n-columns c-list-n-columns "n-columns" "guint" t nil) - (shadow-type c-list-shadow-type "shadow-type" - "GtkShadowType" t t) - (selection-mode c-list-selection-mode "selection-mode" - "GtkSelectionMode" t t) - (row-height c-list-row-height "row-height" "guint" t t) - (titles-active c-list-titles-active "titles-active" - "gboolean" t t) - (reorderable c-list-reorderable "reorderable" - "gboolean" t t) - (use-drag-icons c-list-use-drag-icons "use-drag-icons" - "gboolean" t t) - (sort-type c-list-sort-type "sort-type" "GtkSortType" t - t))) - (define-g-object-class "GtkMisc" misc (:superclass widget :export t :interfaces ("AtkImplementorIface" "GtkBuildable") @@ -1708,7 +1788,9 @@ (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 @@ -1776,7 +1858,62 @@ (overwrite-mode entry-overwrite-mode "overwrite-mode" "gboolean" t t) (text-length entry-text-length "text-length" "guint" t - nil))) + nil) + (invisible-char-set entry-invisible-char-set + "invisible-char-set" "gboolean" t t) + (caps-lock-warning entry-caps-lock-warning + "caps-lock-warning" "gboolean" t t) + (progress-fraction entry-progress-fraction + "progress-fraction" "gdouble" t t) + (progress-pulse-step entry-progress-pulse-step + "progress-pulse-step" "gdouble" t t) + (primary-icon-pixbuf entry-primary-icon-pixbuf + "primary-icon-pixbuf" "GdkPixbuf" t t) + (secondary-icon-pixbuf entry-secondary-icon-pixbuf + "secondary-icon-pixbuf" "GdkPixbuf" t t) + (primary-icon-stock entry-primary-icon-stock + "primary-icon-stock" "gchararray" t t) + (secondary-icon-stock entry-secondary-icon-stock + "secondary-icon-stock" "gchararray" t t) + (primary-icon-name entry-primary-icon-name + "primary-icon-name" "gchararray" t t) + (secondary-icon-name entry-secondary-icon-name + "secondary-icon-name" "gchararray" t t) + (primary-icon-gicon entry-primary-icon-gicon + "primary-icon-gicon" "GIcon" t t) + (secondary-icon-gicon entry-secondary-icon-gicon + "secondary-icon-gicon" "GIcon" t t) + (primary-icon-storage-type + entry-primary-icon-storage-type + "primary-icon-storage-type" "GtkImageType" t nil) + (secondary-icon-storage-type + entry-secondary-icon-storage-type + "secondary-icon-storage-type" "GtkImageType" t nil) + (primary-icon-activatable + entry-primary-icon-activatable + "primary-icon-activatable" "gboolean" t t) + (secondary-icon-activatable + entry-secondary-icon-activatable + "secondary-icon-activatable" "gboolean" t t) + (primary-icon-sensitive entry-primary-icon-sensitive + "primary-icon-sensitive" "gboolean" t t) + (secondary-icon-sensitive + entry-secondary-icon-sensitive + "secondary-icon-sensitive" "gboolean" t t) + (primary-icon-tooltip-text + entry-primary-icon-tooltip-text + "primary-icon-tooltip-text" "gchararray" t t) + (secondary-icon-tooltip-text + entry-secondary-icon-tooltip-text + "secondary-icon-tooltip-text" "gchararray" t t) + (primary-icon-tooltip-markup + entry-primary-icon-tooltip-markup + "primary-icon-tooltip-markup" "gchararray" t t) + (secondary-icon-tooltip-markup + entry-secondary-icon-tooltip-markup + "secondary-icon-tooltip-markup" "gchararray" t t) + (im-module entry-im-module "im-module" "gchararray" t + t))) (define-g-object-class "GtkSpinButton" spin-button (:superclass entry :export t :interfaces @@ -1798,7 +1935,7 @@ (define-g-object-class "GtkRuler" ruler (:superclass widget :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_ruler_get_type") ((lower ruler-lower "lower" "gdouble" t t) (upper ruler-upper "upper" "gdouble" t t) @@ -1808,19 +1945,19 @@ (define-g-object-class "GtkHRuler" h-ruler (:superclass ruler :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hruler_get_type") nil) (define-g-object-class "GtkVRuler" v-ruler (:superclass ruler :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vruler_get_type") nil) (define-g-object-class "GtkRange" range (:superclass widget :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_range_get_type") ((update-policy range-update-policy "update-policy" "GtkUpdateType" t t) @@ -1842,7 +1979,7 @@ (define-g-object-class "GtkScale" scale (:superclass range :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_scale_get_type") ((digits scale-digits "digits" "gint" t t) (draw-value scale-draw-value "draw-value" "gboolean" t @@ -1852,49 +1989,49 @@ (define-g-object-class "GtkHScale" h-scale (:superclass scale :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hscale_get_type") nil) (define-g-object-class "GtkVScale" v-scale (:superclass scale :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vscale_get_type") nil) (define-g-object-class "GtkScrollbar" scrollbar (:superclass range :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_scrollbar_get_type") nil) (define-g-object-class "GtkHScrollbar" h-scrollbar (:superclass scrollbar :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hscrollbar_get_type") nil) (define-g-object-class "GtkVScrollbar" v-scrollbar (:superclass scrollbar :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vscrollbar_get_type") nil) (define-g-object-class "GtkSeparator" separator (:superclass widget :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_separator_get_type") nil) (define-g-object-class "GtkHSeparator" h-separator (:superclass separator :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_hseparator_get_type") nil) (define-g-object-class "GtkVSeparator" v-separator (:superclass separator :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") + ("AtkImplementorIface" "GtkBuildable" "GtkOrientable") :type-initializer "gtk_vseparator_get_type") nil) @@ -2227,7 +2364,9 @@ (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 @@ -2349,7 +2488,7 @@ "gtk-recent-files-max-age" "gint" t t) (gtk-fontconfig-timestamp settings-gtk-fontconfig-timestamp - "gtk-fontconfig-timestamp" "gint" t t) + "gtk-fontconfig-timestamp" "guint" t t) (gtk-sound-theme-name settings-gtk-sound-theme-name "gtk-sound-theme-name" "gchararray" t t) (gtk-enable-input-feedback-sounds @@ -2432,6 +2571,7 @@ (stock-id action-stock-id "stock-id" "gchararray" t t) (icon-name action-icon-name "icon-name" "gchararray" t t) + (gicon action-gicon "gicon" "GIcon" t t) (visible-horizontal action-visible-horizontal "visible-horizontal" "gboolean" t t) (visible-vertical action-visible-vertical @@ -2445,7 +2585,13 @@ (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 @@ -2454,8 +2600,13 @@ ((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 @@ -2591,7 +2742,13 @@ (embedded status-icon-embedded "embedded" "gboolean" t nil) (blinking status-icon-blinking "blinking" "gboolean" t - t))) + t) + (has-tooltip status-icon-has-tooltip "has-tooltip" + "gboolean" t t) + (tooltip-text status-icon-tooltip-text "tooltip-text" + "gchararray" t t) + (tooltip-markup status-icon-tooltip-markup + "tooltip-markup" "gchararray" t t))) (define-g-object-class "GtkTextBuffer" text-buffer (:superclass g-object :export t :interfaces nil @@ -2739,7 +2896,10 @@ "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 @@ -2779,15 +2939,42 @@ :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))) +