X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.generated-classes.lisp;h=ddfba0ba23f95a54f82711fbcb39a695051d4215;hb=9096c37a1caaf430e1e6a11ace984484295e4b2e;hp=3aba15b0cb4d44b263b3c7a5317020365a7ef7d3;hpb=51aa0c04d9522fa9c17555cc779036aa9703ef02;p=cl-gtk2.git diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index 3aba15b..ddfba0b 100644 --- a/gtk/gtk.generated-classes.lisp +++ b/gtk/gtk.generated-classes.lisp @@ -108,14 +108,14 @@ (: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)) @@ -533,7 +533,7 @@ (: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)) @@ -562,28 +562,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) + (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)) @@ -608,22 +632,22 @@ (: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 @@ -674,7 +698,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_window_set_tooltip_window"))) (define-g-object-class "GtkContainer" container (:superclass widget :export t :interfaces @@ -684,7 +721,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 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 @@ -698,9 +744,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 +852,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 @@ -1067,7 +1128,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 @@ -1125,7 +1191,20 @@ (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 @@ -1147,7 +1226,13 @@ (: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 @@ -1222,7 +1307,9 @@ "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 @@ -1477,7 +1564,9 @@ (: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 @@ -1512,7 +1601,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 @@ -1603,6 +1694,12 @@ (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") @@ -1708,7 +1805,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 @@ -2227,7 +2326,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 @@ -2362,11 +2463,14 @@ "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 @@ -2382,9 +2486,6 @@ "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) @@ -2445,7 +2546,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 +2561,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 @@ -2739,7 +2851,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 @@ -2765,7 +2880,7 @@ (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 @@ -2779,15 +2894,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))) +