(: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))
(define-g-interface "GtkFileChooser" file-chooser
(:export t :type-initializer "gtk_file_chooser_get_type")
+ (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)
- (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)
- (extra-widget file-chooser-extra-widget "extra-widget"
- "GtkWidget" t t)
- (file-system-backend file-chooser-file-system-backend
- "file-system-backend" "gchararray" nil nil)
+ (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)
- (filter file-chooser-filter "filter" "GtkFileFilter" t t)
- (select-multiple file-chooser-select-multiple
- "select-multiple" "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")
(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)
(show-not-found recent-chooser-show-not-found
"show-not-found" "gboolean" t t)
+ (limit recent-chooser-limit "limit" "gint" t t)
+ (show-icons recent-chooser-show-icons "show-icons"
+ "gboolean" t t)
+ (local-only recent-chooser-local-only "local-only"
+ "gboolean" t t)
(show-private recent-chooser-show-private "show-private"
"gboolean" t t))
"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"
: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")
(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
"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")
"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-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-popup-delay" "gint" t t)
(gtk-menu-popdown-delay settings-gtk-menu-popdown-delay
"gtk-menu-popdown-delay" "gint" t t)
+ (gtk-menu-bar-popup-delay
+ settings-gtk-menu-bar-popup-delay
+ "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)
(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-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-entry-password-hint-timeout" "guint" t t)))
(define-g-object-class "GtkRcStyle" rc-style
(: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
projects / cl-gtk2.git / blobdiff