(:cffi current-name file-chooser-current-name
(:string :free-to-foreign t :encoding :utf-8) nil
"gtk_file_chooser_set_current_name")
+ #+win32
+ (:cffi filename file-chooser-filename
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_filename_utf8" "gtk_file_chooser_set_filename_utf8")
+ #-win32
(: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")
+ #+win32
+ (:cffi current-folder file-chooser-current-folder
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_current_folder_utf8"
+ "gtk_file_chooser_set_current_folder_utf8")
+ #-win32
(: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")
(g-string :free-from-foreign t :free-to-foreign t)
"gtk_file_chooser_get_current_folder_uri"
"gtk_file_chooser_set_current_folder_uri")
+ #+win32
+ (:cffi preview-filename file-chooser-preview-filename
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_file_chooser_get_preview_filename_utf8" nil)
+ #-win32
(:cffi preview-filename file-chooser-preview-filename
(g-string :free-from-foreign t :free-to-foreign t)
"gtk_file_chooser_get_preview_filename" nil)
(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))
-
(define-g-interface "GtkTreeModel"
tree-model
(:export t :type-initializer "gtk_tree_model_get_type"))
(define-g-interface "GtkToolShell"
tool-shell
- (:export t :type-initializer "gtk_tool_shell_get_type"))
+ (:export t :type-initializer "gtk_tool_shell_get_type")
+ (:cffi icon-size tool-shell-icon-size icon-size
+ "gtk_tool_shell_get_icon_size" nil)
+ (:cffi orientation tool-shell-orientation orientation
+ "gtk_tool_shell_get_orientation" nil)
+ (:cffi relief-style tool-shell-relief-style relief-style
+ "gtk_tool_shell_get_relief_style" nil)
+ (:cffi style tool-shell-style toolbar-style "gtk_tool_shell_get_style" nil))
(define-g-interface "GtkOrientable"
orientable
:type-initializer "gtk_recent_filter_get_type")
nil)
-(define-g-object-class "GtkTooltips" tooltips
- (:superclass gtk-object :export t :interfaces nil
- :type-initializer "gtk_tooltips_get_type")
- nil)
-
(define-g-object-class "GtkTreeViewColumn" tree-view-column
(:superclass gtk-object :export t :interfaces
("GtkBuildable" "GtkCellLayout") :type-initializer
"show-week-numbers" "gboolean" t t)
(year calendar-year "year" "gint" t t)
(:cffi detail-function calendar-detail-function nil nil
- calendar-set-detail-function)))
+ calendar-set-detail-function)
+ (:cffi display-options calendar-display-options
+ calendar-display-options
+ "gtk_calendar_get_display_options"
+ "gtk_calendar_set_display_options")))
(define-g-object-class "GtkCellView" cell-view
(:superclass widget :export t :interfaces
(:cffi displayed-row cell-view-displayed-row
(g-boxed-foreign tree-path)
"gtk_cell_view_get_displayed_row"
- "gtk_cell_view_set_displayed_row")))
+ "gtk_cell_view_set_displayed_row")
+ (:cffi cell-renderers cell-view-cell-renderers
+ (glist (g-object cell-renderer) :free-from-foreign t)
+ "gtk_cell_view_get_cell_renderers" nil)))
(define-g-object-class "GtkContainer" container
(:superclass widget :export t :interfaces
"gtk_container_set_focus_vadjustment")
(:cffi focus-hadjustment container-focus-hadjustment
g-object "gtk_container_get_focus_hadjustment"
- "gtk_container_set_focus_hadjustment")))
+ "gtk_container_set_focus_hadjustment")
+ (:cffi reallocate-redraws container-reallocate-redraws
+ :boolean nil "gtk_container_set_reallocate_redraws")))
(define-g-object-class "GtkBin" bin
(:superclass container :export t :interfaces
("AtkImplementorIface" "GtkBuildable")
:type-initializer "gtk_bin_get_type")
- nil)
+ ((:cffi child bin-child (g-object widget)
+ "gtk_bin_get_child" nil)))
(define-g-object-class "GtkAlignment" alignment
(:superclass bin :export t :interfaces
(:superclass check-button :export t :interfaces
("AtkImplementorIface" "GtkActivatable" "GtkBuildable")
:type-initializer "gtk_radio_button_get_type")
- ((group radio-button-group "group" "GtkRadioButton" nil
- t)))
+ ((:cffi group radio-button-group
+ (gslist g-object :free-from-foreign nil
+ :free-to-foreign nil)
+ "gtk_radio_button_get_group" "gtk_radio_button_set_group")))
(define-g-object-class "GtkComboBox" combo-box
(:superclass bin :export t :interfaces
(g-boxed-foreign 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)))
+ nil combo-box-set-separator-func)
+ (:cffi title combo-box-title
+ (:string :free-from-foreign nil :free-to-foreign t)
+ "gtk_combo_box_get_title" "gtk_combo_box_set_title")))
(define-g-object-class "GtkComboBoxEntry" combo-box-entry
(:superclass combo-box :export t :interfaces
"window-placement" "GtkCornerType" t t)
(window-placement-set
scrolled-window-window-placement-set
- "window-placement-set" "gboolean" t t)))
+ "window-placement-set" "gboolean" t t)
+ (:cffi hscrollbar scrolled-window-hscrollbar
+ (g-object widget) "gtk_scrolled_window_get_hscrollbar"
+ nil)
+ (:cffi vscrollbar scrolled-window-vscrollbar
+ (g-object widget) "gtk_scrolled_window_get_vscrollbar"
+ nil)))
(define-g-object-class "GtkToolItem" tool-item
(:superclass bin :export t :interfaces
color-selection-has-opacity-control
"has-opacity-control" "gboolean" t t)
(has-palette color-selection-has-palette "has-palette"
- "gboolean" t t)))
+ "gboolean" t t)
+ (:cffi previous-alpha color-selection-previous-alpha
+ :uint16 "gtk_color_selection_get_previous_alpha"
+ "gtk_color_selection_set_previous_alpha")
+ (:cffi previous-color color-selection-previous-color
+ (g-boxed-foreign color)
+ gtk-color-selection-get-previous-color
+ gtk-color-selection-set-previous-color)))
(define-g-object-class "GtkFileChooserWidget" file-chooser-widget
(:superclass v-box :export t :interfaces
("AtkImplementorIface" "GtkBuildable" "GtkFileChooser"
- "GtkFileChooserEmbed" "GtkOrientable")
+ "GtkOrientable")
:type-initializer "gtk_file_chooser_widget_get_type")
nil)
(tearoff-title menu-tearoff-title "tearoff-title"
"gchararray" t t)
(:cffi screen menu-screen g-object nil
- "gtk_menu_set_screen")))
+ "gtk_menu_set_screen")
+ (:cffi title menu-title
+ (:string :free-from-foreign nil :free-to-foreign t)
+ "gtk_menu_get_title" "gtk_menu_set_title")))
(define-g-object-class "GtkRecentChooserMenu" recent-chooser-menu
(:superclass menu :export t :interfaces
nil)
(define-g-object-class "GtkIMContext" i-m-context
- (:superclass g-object :export t :interfaces nil) nil)
+ (:superclass g-object :export t :interfaces nil
+ :type-initializer "gtk_im_context_get_type") nil)
(define-g-object-class "GtkListStore" list-store
(:superclass g-object :export t :interfaces
"paste-target-list" "GtkTargetList" t nil)
(tag-table text-buffer-tag-table "tag-table"
"GtkTextTagTable" t nil)
- (text text-buffer-text "text" "gchararray" t t)))
+ (text text-buffer-text "text" "gchararray" t t)
+ (:cffi modified text-buffer-modified :boolean
+ "gtk_text_buffer_get_modified"
+ "gtk_text_buffer_set_modified")))
(define-g-object-class "GtkTextChildAnchor" text-child-anchor
(:superclass g-object :export t :interfaces nil
:type-initializer "gtk_text_child_anchor_get_type")
- nil)
+ ((:cffi deleted-p text-child-anchor-deleted-p :boolean
+ "gtk_text_child_anchor_get_deleted" nil)))
(define-g-object-class "GtkTextMark" text-mark
(:superclass g-object :export t :interfaces nil
:type-initializer "gtk_text_mark_get_type")
((left-gravity text-mark-left-gravity "left-gravity"
"gboolean" t nil)
- (name text-mark-name "name" "gchararray" t nil)))
+ (name text-mark-name "name" "gchararray" t nil)
+ (:cffi visible text-mark-visible :boolean
+ "gtk_text_mark_get_visible"
+ "gtk_text_mark_set_visible")
+ (:cffi deleted text-mark-deleted :boolean
+ "gtk_text_mark_get_deleted" nil)
+ (:cffi buffer text-mark-buffer (g-object text-buffer)
+ "gtk_text_mark_get_buffer" nil)))
(define-g-object-class "GtkTextTag" text-tag
(:superclass g-object :export t :interfaces nil
"gtk_tree_selection_set_mode")
(:cffi select-function tree-selection-select-function
nil tree-selection-get-selection-function
- tree-selection-set-select-function)))
+ tree-selection-set-select-function)
+ (:cffi tree-view tree-selection-tree-view
+ (g-object tree-view)
+ "gtk_tree_selection_get_tree_view" nil)))
(define-g-object-class "GtkTreeStore" tree-store
(:superclass g-object :export t :interfaces