X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.generated-classes.lisp;h=9724f755f5345dc99a8a5d28065500b7a0f64fc7;hb=9af0a44db2b9491749a7936c782c3d7ff1b804a3;hp=777937f9be5c1f41c9b8927955e57f49ca5b0fe7;hpb=f8e29849b2c16860261744c85b5021a0a7a2859f;p=cl-gtk2.git diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index 777937f..9724f75 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,16 +38,16 @@ "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 "GtkProgressBarOrientation" progress-bar-orientation (:export t :type-initializer "gtk_progress_bar_orientation_get_type") (: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)) @@ -82,14 +82,14 @@ (:export t :type-initializer "gtk_toolbar_style_get_type") (:icons 0) (:text 1) (:both 2) (:both-horiz 3)) -(define-g-enum "GtkJustification" justification - (:export t :type-initializer "gtk_justification_get_type") - (:left 0) (:right 1) (:center 2) (:fill 3)) - (define-g-enum "GtkWrapMode" wrap-mode (:export t :type-initializer "gtk_wrap_mode_get_type") (:none 0) (:char 1) (:word 2) (:word-char 3)) +(define-g-enum "GtkJustification" justification + (:export t :type-initializer "gtk_justification_get_type") + (:left 0) (:right 1) (:center 2) (:fill 3)) + (define-g-enum "GtkButtonBoxStyle" button-box-style (:export t :type-initializer "gtk_button_box_style_get_type") (:default-style 0) (:spread 1) (:edge 2) (:start 3) (:end 4) @@ -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)) @@ -562,28 +562,28 @@ (define-g-interface "GtkFileChooser" file-chooser (:export t :type-initializer "gtk_file_chooser_get_type") - (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) (do-overwrite-confirmation file-chooser-do-overwrite-confirmation "do-overwrite-confirmation" "gboolean" 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) - (show-hidden file-chooser-show-hidden "show-hidden" - "gboolean" t t) - (action file-chooser-action "action" "GtkFileChooserAction" - t t) + (select-multiple file-chooser-select-multiple + "select-multiple" "gboolean" t t) (extra-widget file-chooser-extra-widget "extra-widget" "GtkWidget" t t) + (show-hidden file-chooser-show-hidden "show-hidden" + "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) (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) + (local-only file-chooser-local-only "local-only" "gboolean" + t t) + (preview-widget-active file-chooser-preview-widget-active + "preview-widget-active" "gboolean" t t) (:cffi current-name file-chooser-current-name (:string :free-to-foreign t :encoding :utf-8) nil "gtk_file_chooser_set_current_name") @@ -630,24 +630,24 @@ (define-g-interface "GtkRecentChooser" recent-chooser (:export t :type-initializer "gtk_recent_chooser_get_type") - (show-icons recent-chooser-show-icons "show-icons" - "gboolean" t t) - (local-only recent-chooser-local-only "local-only" - "gboolean" t t) + (select-multiple recent-chooser-select-multiple + "select-multiple" "gboolean" t t) (filter recent-chooser-filter "filter" "GtkRecentFilter" t t) (show-tips recent-chooser-show-tips "show-tips" "gboolean" t t) - (limit recent-chooser-limit "limit" "gint" t t) - (select-multiple recent-chooser-select-multiple - "select-multiple" "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-not-found recent-chooser-show-not-found "show-not-found" "gboolean" t t) + (sort-type recent-chooser-sort-type "sort-type" + "GtkRecentSortType" t t) + (show-icons recent-chooser-show-icons "show-icons" + "gboolean" t t) (show-private recent-chooser-show-private "show-private" + "gboolean" t t) + (local-only recent-chooser-local-only "local-only" "gboolean" t t)) (define-g-interface "GtkToolShell" tool-shell @@ -698,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 @@ -708,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 @@ -1497,12 +1519,6 @@ :type-initializer "gtk_recent_chooser_widget_get_type") nil) -(define-g-object-class "GtkFileChooserDefault" file-chooser-default - (:superclass v-box :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" "GtkFileChooser" - "GtkFileChooserEmbed")) - nil) - (define-g-object-class "GtkHBox" h-box (:superclass box :export t :interfaces ("AtkImplementorIface" "GtkBuildable") @@ -1789,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 @@ -1877,12 +1895,6 @@ "update-policy" "GtkSpinButtonUpdatePolicy" t t) (value spin-button-value "value" "gdouble" t t))) -(define-g-object-class "GtkFileChooserEntry" file-chooser-entry - (:superclass entry :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" "GtkCellEditable" - "GtkEditable")) - nil) - (define-g-object-class "GtkRuler" ruler (:superclass widget :export t :interfaces ("AtkImplementorIface" "GtkBuildable") @@ -2451,35 +2463,35 @@ "gtk-enable-tooltips" "gboolean" t t) (gtk-button-images settings-gtk-button-images "gtk-button-images" "gboolean" t t) - (gtk-toolbar-style settings-gtk-toolbar-style - "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-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-menu-popup-delay" "gint" t t) (gtk-menu-popdown-delay settings-gtk-menu-popdown-delay "gtk-menu-popdown-delay" "gint" t t) - (gtk-color-palette settings-gtk-color-palette - "gtk-color-palette" "gchararray" t t) (gtk-entry-select-on-focus settings-gtk-entry-select-on-focus "gtk-entry-select-on-focus" "gboolean" t t) (gtk-entry-password-hint-timeout settings-gtk-entry-password-hint-timeout "gtk-entry-password-hint-timeout" "guint" 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-scrolled-window-placement settings-gtk-scrolled-window-placement "gtk-scrolled-window-placement" "GtkCornerType" t t) (gtk-menu-bar-popup-delay settings-gtk-menu-bar-popup-delay - "gtk-menu-bar-popup-delay" "gint" t t))) + "gtk-menu-bar-popup-delay" "gint" t t) + (gtk-color-palette settings-gtk-color-palette + "gtk-color-palette" "gchararray" t t) + (gtk-toolbar-style settings-gtk-toolbar-style + "gtk-toolbar-style" "GtkToolbarStyle" t t) + (gtk-toolbar-icon-size settings-gtk-toolbar-icon-size + "gtk-toolbar-icon-size" "GtkIconSize" t t))) (define-g-object-class "GtkRcStyle" rc-style (:superclass g-object :export t :interfaces nil