Add bindings; add information on bindings coverage
[cl-gtk2.git] / generating.lisp
1 (defpackage :gtk-generation
2   (:use :cl :gobject :cffi :glib)
3   (:export #:gtk-generate
4            #:gtk-generate-child-properties))
5
6 (in-package :gtk-generation)
7
8 (load-foreign-library "libgtk-x11-2.0.so")
9
10 (defcfun gtk-init-check :boolean
11   (argc (:pointer :int))
12   (argv (:pointer (:pointer :string))))
13
14 (defun gtk-init ()
15   (gtk-init-check (foreign-alloc :int :initial-element 0)
16                   (foreign-alloc :string :initial-contents '("/usr/bin/sbcl")))
17   #+nil(with-foreign-objects ((argc :int)
18                          (argv '(:pointer :string) 1))
19     (setf (mem-ref argc :int) 0
20           (mem-ref argv '(:pointer :string)) (foreign-alloc :string :count 1
21                                                             :initial-element "/usr/bin/sbcl"))
22     (unwind-protect
23          (unless (gtk-init-check argc argv)
24            (error "Cannot initialize Gtk+"))
25       (foreign-free (mem-ref argv '(:pointer :string))))))
26
27 (gtk-init)
28
29 (defcfun gtk-test-register-all-types :void)
30
31 (gtk-test-register-all-types)
32
33 (defun gtk-generate (filename)
34   (with-open-file (stream filename :direction :output :if-exists :supersede)
35     (generate-types-hierarchy-to-file
36      stream
37      "GtkObject"
38      :include-referenced t
39      :prefix "Gtk"
40      :package (or (find-package :gtk) (make-package :gtk))
41      :exceptions `(("GObject" gobject:g-object)
42                    ("GtkObject" ,(intern "GTK-OBJECT" (find-package :gtk)))
43                    ("GInitiallyUnowned" gobject::g-initially-unowned)
44                    ("GtkWindow" ,(intern "GTK-WINDOW" (find-package :gtk)))
45                    ("GtkUIManager" ,(intern "UI-MANAGER" (find-package :gtk)))
46                    ("GtkUIManagerItemType" ,(intern "UI-MANAGER-ITEM-TYPE" (find-package :gtk))))
47      :prologue (format nil "(in-package :gtk)")
48      :interfaces '("GtkBuildable"
49                    "GtkCellEditable"
50                    "GtkCellLayout"
51                    "GtkEditable"
52                    "GtkFileChooser"
53                    "GtkFileChooserEmbed"
54                    "GtkTreeModel"
55                    "GtkTreeDragSource"
56                    "GtkTreeDragDest"
57                    "GtkTreeSortable"
58                    "GtkPrintOperationPreview"
59                    "GtkRecentChooser"
60                    "GtkToolShell"
61                    "GtkOrientable"
62                    "GtkActivatable"
63                    "AtkImplementorIface")
64      :objects '("GtkSettings" "GtkRcStyle" "GtkStyle" "GtkTooltip" "GtkAccelGroup"
65                 "GtkAccelMap" "GtkAction" "GtkActionGroup" "GtkBuilder" "GtkClipboard"
66                 "GtkEntryCompletion" "GtkIconFactory" "GtkIconTheme" "GtkIMContext"
67                 "GtkListStore" "GtkPageSetup" "GtkPrintContext" "GtkPrintOperation"
68                 "GtkPrintSettings" "GtkRecentManager" "GtkSizeGroup" "GtkStatusIcon"
69                 "GtkTextBuffer" "GtkTextChildAnchor" "GtkTextMark" "GtkTextTag"
70                 "GtkTextTagTable" "GtkTreeModelFilter" "GtkTreeModelSort"
71                 "GtkTreeSelection" "GtkTreeStore" "GtkUIManager" "GtkWindowGroup"
72                 "GtkToggleAction" "GtkRecentAction" "GtkRadioAction" "GtkItemFactory"
73                 "GtkPageSetupUnixDialog" "GtkPrintUnixDialog")
74      :flags '("GtkTextSearchFlags" "GtkAccelFlags" "GtkArgFlags" "GtkAttachOptions"
75               "GtkButtonAction" "GtkCalendarDisplayOptions" "GtkCellRendererState"
76               "GtkDebugFlag" "GtkDestDefaults" "GtkDialogFlags" "GtkFileFilterFlags"
77               "GtkIconLookupFlags" "GtkObjectFlags" "GtkPrivateFlags" "GtkRcFlags"
78               "GtkRecentFilterFlags" "GtkSignalRunType" "GtkTargetFlags"
79               "GtkTreeModelFlags" "GtkUIManagerItemType" "GtkWidgetFlags")
80      :enums '("GtkTextDirection" "GtkSizeGroupMode" "GtkUnit" "GtkPrintStatus"
81               "GtkRecentSortType" "GtkFileChooserAction" "GtkCellRendererAccelMode"
82               "GtkCellRendererMode" "GtkTreeViewColumnSizing"
83               "GtkProgressBarOrientation" "GtkProgressBarStyle" "GtkUpdateType"
84               "GtkMetricType" "GtkSpinButtonUpdatePolicy" "GtkCurveType" "GtkImageType"
85               "GtkArrowType" "GtkSortType" "GtkToolbarStyle" "GtkWrapMode"
86               "GtkJustification" "GtkButtonBoxStyle" "GtkSelectionMode"
87               "GtkTreeViewGridLines" "GtkPackDirection" "GtkPolicyType" "GtkCornerType"
88               "GtkSensitivityType" "GtkShadowType" "GtkIconSize" "GtkOrientation"
89               "GtkPositionType" "GtkReliefStyle" "GtkMessageType" "GtkButtonsType"
90               "GtkWindowType" "GtkWindowPosition" "GtkResizeMode"
91               "GtkTextBufferTargetInfo" "GtkStateType" "GtkDirectionType"
92               "GtkDragResult" "GtkWidgetHelpType" "GtkPackType" "GtkNotebookTab"
93               "GtkMovementStep" "GtkAnchorType" "GtkAssistantPageType"
94               "GtkBuilderError" "GtkCellType" "GtkCListDragPos" "GtkCTreeExpanderStyle"
95               "GtkCTreeExpansionType" "GtkCTreeLineStyle" "GtkCTreePos" "GtkDeleteType"
96               "GtkExpanderStyle" "GtkFileChooserConfirmation" "GtkFileChooserError"
97               "GtkIconThemeError" "GtkIconViewDropPosition" "GtkIMPreeditStyle"
98               "GtkIMStatusStyle" "GtkMatchType" "GtkMenuDirectionType"
99               "GtkNumberUpLayout" "GtkPageOrientation" "GtkPageSet"
100               "GtkPathPriorityType" "GtkPathType" "GtkPreviewType" "GtkPrintDuplex"
101               "GtkPrintError" "GtkPrintOperationAction" "GtkPrintOperationResult"
102               "GtkPrintPages" "GtkPrintQuality" "GtkRcTokenType"
103               "GtkRecentChooserError" "GtkRecentManagerError" "GtkResponseType"
104               "GtkScrollStep" "GtkScrollType" "GtkSideType" "GtkSpinType"
105               "GtkSubmenuDirection" "GtkSubmenuPlacement" "GtkTextWindowType"
106               "GtkToolbarChildType" "GtkToolbarSpaceStyle" "GtkTreeViewDropPosition"
107               "GtkTreeViewMode" "GtkVisibility" "GtkEntryIconPosition")
108      :exclusions '("PangoStretch" "PangoVariant" "PangoStyle" "PangoUnderline" "GtkGLDrawingArea"
109                    "GtkCList" "GtkCTree" "GtkCombo" "GtkFileSelection" "GtkItemFactory" "GtkList"
110                    "GtkListItem" "GtkOldEditable" "GtkOptionMenu" "GtkPixmap" "GtkPreview"
111                    "GtkText" "GtkTooltips" "GtkTipsQuery" "GtkTree" "GtkTreeItem")
112      :additional-properties
113      '(("GtkWindow"
114         (:cffi gtk::focus gtk::gtk-window-focus (g-object gtk::widget)
115          "gtk_window_get_focus" "gtk_window_set_focus")
116         (:cffi gtk::default-widget gtk::gtk-window-default-widget (g-object gtk::widget)
117          "gtk_window_get_default_widget" "gtk_window_set_default")
118         (:cffi gtk::has-frame gtk::gtk-window-has-frame :boolean
119          "gtk_window_get_has_frame" "gtk_window_set_has_frame")
120         (:cffi gtk::mnemonic-modifier gtk::gtk-window-mnemonic-modifier (g-object gdk::modifier-type)
121          "gtk_window_get_mnemonic_modifier" "gtk_window_set_mnemonic_modifier")
122         (:cffi gtk::icon-list gtk::gtk-window-icon-list (glist gtk::pixbuf :free-from-foreign t :free-to-foreign t)
123          "gtk_window_get_icon_list" "gtk_window_set_icon_list")
124         (:cffi gtk::group gtk::gtk-window-group (g-object gtk::window-group)
125          "gtk_window_get_group" nil)
126         (:cffi gtk::keep-above gtk::gtk-window-keep-above :boolean
127          nil "gtk_window_set_keep_above")
128         (:cffi gtk::keep-below gtk::gtk-window-keep-below :boolean
129          nil "gtk_window_set_keep_below"))
130        ("GtkTreeViewColumn"
131         (:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object
132          "gtk_tree_view_column_get_tree_view" nil)
133         (:cffi gtk::sort-column-id gtk::tree-view-column-sort-column-id :int
134          "gtk_tree_view_column_get_sort_column_id" "gtk_tree_view_column_set_sort_column_id")
135         (:cffi gtk::cell-renderers gtk::tree-view-column-cell-renderers (glist g-object  :free-from-foreign t)
136          "gtk_tree_view_column_get_cell_renderers" nil))
137        ("GtkTreeSelection"
138         (:cffi gtk::mode gtk::tree-selection-mode gtk::selection-mode
139          "gtk_tree_selection_get_mode" "gtk_tree_selection_set_mode")
140         (:cffi gtk::select-function gtk::tree-selection-select-function nil
141          gtk::tree-selection-get-selection-function gtk::tree-selection-set-select-function)
142         (:cffi gtk::tree-view gtk::tree-selection-tree-view (g-object gtk::tree-view)
143          "gtk_tree_selection_get_tree_view" nil))
144        ("GtkTreeView"
145         (:cffi gtk::selection gtk::tree-view-selection g-object
146          "gtk_tree_view_get_selection" nil)
147         (:cffi gtk::column-drag-function gtk::tree-view-column-drag-function nil
148          nil gtk::tree-view-set-column-drag-function)
149         (:cffi gtk::bin-window gtk::tree-view-bin-window g-object
150          "gtk_tree_view_get_bin_window" nil)
151         (:cffi gtk::search-equal-func gtk::tree-view-search-equal-func nil
152          nil gtk::tree-view-set-search-equal-func)
153         (:cffi gtk::search-entry gtk::tree-view-search-entry g-object
154          "gtk_tree_view_get_search_entry" "gtk_tree_view_set_search_entry")
155         (:cffi gtk::search-position-func gtk::tree-view-search-position-func nil
156          nil gtk::tree-view-set-search-position-func)
157         (:cffi gtk::row-separator-func gtk::tree-view-row-separator-func nil
158          nil gtk::tree-view-set-row-separartor-func))
159        ("GtkCellView"
160         (:cffi gtk::displayed-row gtk::cell-view-displayed-row (g-boxed-foreign gtk::tree-path)
161          "gtk_cell_view_get_displayed_row" "gtk_cell_view_set_displayed_row")
162         (:cffi gtk::cell-renderers gtk::cell-view-cell-renderers (glist (g-object gtk::cell-renderer) :free-from-foreign t)
163          "gtk_cell_view_get_cell_renderers" nil))
164        ("GtkComboBox"
165         (:cffi gtk::active-iter gtk::combo-box-active-iter (g-boxed-foreign gtk::tree-iter)
166          gtk::combo-box-get-active-iter "gtk_combo_box_set_active_iter")
167         (:cffi gtk::row-separator-func gtk::combo-box-separator-func nil
168          nil gtk::combo-box-set-separator-func)
169         (:cffi gtk::title gtk::combo-box-title (:string :free-from-foreign nil :free-to-foreign t)
170          "gtk_combo_box_get_title" "gtk_combo_box_set_title"))
171        ("GtkMenu"
172         (:cffi gtk::screen gtk::menu-screen g-object
173          nil "gtk_menu_set_screen")
174         (:cffi gtk::title gtk::menu-title (:string :free-from-foreign nil :free-to-foreign t)
175          "gtk_menu_get_title" "gtk_menu_set_title"))
176        ("GtkToolItem"
177         (:cffi gtk::expand gtk::tool-item-expand :boolean
178          "gtk_tool_item_get_expand" "gtk_tool_item_set_expand")
179         (:cffi gtk::use-drag-window gtk::tool-item-use-drag-window :boolean
180          "gtk_tool_item_get_use_drag_window" "gtk_tool_item_set_use_drag_window")
181         (:cffi gtk::icon-size gtk::tool-item-icon-size gtk::icon-size
182          "gtk_tool_item_get_icon_size" nil)
183         (:cffi gtk::orientation gtk::tool-item-orientation gtk::orientation
184          "gtk_tool_item_get_orientation" nil)
185         (:cffi gtk::toolbar-style gtk::tool-item-toolbar-style gtk::toolbar-style
186          "gtk_tool_item_get_toolbar_style" nil)
187         (:cffi gtk::relief-style gtk::tool-item-relief-style gtk::relief-style
188          "gtk_tool_item_get_relief_style" nil))
189        ("GtkMenuToolButton"
190         (:cffi gtk::arrow-tooltip-text gtk::menu-tool-button-arrow-tooltip-text :string
191          nil "gtk_menu_tool_button_set_arrow_tooltip_text")
192         (:cffi gtk::arrow-tooltip-markup gtk::menu-tool-button-arrow-tooltip-markup :string
193          nil "gtk_menu_tool_button_set_arrow_tooltip_markup"))
194        ("GtkUIManager"
195         (:cffi gtk::accel-group gtk::ui-manager-accel-group g-object
196          "gtk_ui_manager_get_accel_group" nil))
197        ("GtkActionGroup"
198         (:cffi gtk::translate-function gtk::action-group-translate-function nil
199          nil gtk::action-group-set-translate-func)
200         (:cffi gtk::translation-domain gtk::action-group-translation-domain nil
201          nil gtk::gtk-action-group-set-translation-domain))
202        ("GtkAction"
203         (:cffi gtk::accel-path gtk::action-accel-path (:string :free-from-foreign nil :free-to-foreign t)
204          "gtk_action_get_accel_path" "gtk_action_set_accel_path")
205         (:cffi gtk::accel-group gtk::action-accel-group g-object
206          nil "gtk_action_set_accel_group"))
207        ("GtkFileChooser"
208         (:cffi gtk::current-name gtk::file-chooser-current-name (:string :free-to-foreign t :encoding :utf-8)
209          nil "gtk_file_chooser_set_current_name")
210         (:cffi gtk::filename gtk::file-chooser-filename (glib:g-string :free-from-foreign t :free-to-foreign t)
211          "gtk_file_chooser_get_filename" "gtk_file_chooser_set_filename")
212         (:cffi gtk::current-folder gtk::file-chooser-current-folder (glib:g-string :free-from-foreign t :free-to-foreign t)
213          "gtk_file_chooser_get_current_folder" "gtk_file_chooser_set_current_folder")
214         (:cffi gtk::uri gtk::file-chooser-uri (glib:g-string :free-from-foreign t :free-to-foreign t)
215          "gtk_file_chooser_get_uri" "gtk_file_chooser_set_uri")
216         (:cffi gtk::current-folder-uri gtk::file-chooser-current-folder-uri (glib:g-string :free-from-foreign t :free-to-foreign t)
217          "gtk_file_chooser_get_current_folder_uri" "gtk_file_chooser_set_current_folder_uri")
218         (:cffi gtk::preview-filename gtk::file-chooser-preview-filename (glib:g-string :free-from-foreign t :free-to-foreign t)
219          "gtk_file_chooser_get_preview_filename" nil)
220         (:cffi gtk::preview-uri gtk::file-chooser-preview-uri (glib:g-string :free-from-foreign t :free-to-foreign t)
221          "gtk_file_chooser_get_preview_uri" nil))
222        ("GtkFileFilter"
223         (:cffi gtk::name gtk::file-filter-name :string
224          "gtk_file_filter_get_name" "gtk_file_filter_set_name"))
225        ("GtkFontSelectionDialog"
226         (:cffi gtk::font-name gtk::font-selection-dialog-font-name (glib:g-string :free-from-foreign t :free-to-foreign t)
227          "gtk_font_selection_dialog_get_font_name" "gtk_font_selection_dialog_set_font_name")
228         (:cffi gtk::preview-text gtk::font-selection-dialog-preview-text :string
229          "gtk_font_selection_dialog_get_preview_text" "gtk_font_selection_dialog_set_preview_text")
230         (:cffi gtk::apply-button gtk::font-selection-dialog-apply-button g-object
231          "gtk_font_selection_dialog_get_apply_button" nil)
232         (:cffi gtk::cancel-button gtk::font-selection-dialog-cancel-button g-object
233          "gtk_font_selection_dialog_get_cancel_button" nil)
234         (:cffi gtk::ok-button gtk::font-selection-dialog-ok-button g-object
235          "gtk_font_selection_dialog_get_ok_button" nil))
236        ("GtkFixed"
237         (:cffi gtk::has-window gtk::fixed-has-window :boolean
238          "gtk_fixed_get_has_window" "gtk_fixed_set_has_window"))
239        ("GtkLayout"
240         (:cffi gtk::bin-window gtk::layout-bin-window g-object
241          "gtk_layout_get_bin_window" nil))
242        ("GtkCalendar"
243         (:cffi gtk::detail-function gtk::calendar-detail-function nil
244          nil gtk::calendar-set-detail-function)
245         (:cffi gtk::display-options gtk::calendar-display-options gtk::calendar-display-options
246          "gtk_calendar_get_display_options" "gtk_calendar_set_display_options"))
247        ("GtkContainer"
248         (:cffi gtk::focus-child gtk::container-focus-child g-object
249          "gtk_container_get_focus_child" "gtk_container_set_focus_child")
250         (:cffi gtk::focus-vadjustment gtk::container-focus-vadjustment g-object
251          "gtk_container_get_focus_vadjustment" "gtk_container_set_focus_vadjustment")
252         (:cffi gtk::focus-hadjustment gtk::container-focus-hadjustment g-object
253          "gtk_container_get_focus_hadjustment" "gtk_container_set_focus_hadjustment")
254         (:cffi gtk::reallocate-redraws gtk::container-reallocate-redraws :boolean
255          nil "gtk_container_set_reallocate_redraws"))
256        ("GtkWidget"
257         (:cffi gtk::parent-window gtk::widget-parent-window (g-object gdk::gdk-window)
258          "gtk_widget_get_parent_window" "gtk_widget_set_parent_window")
259         (:cffi gtk::toplevel gtk::widget-toplevel (g-object gtk::widget)
260          "gtk_widget_get_toplevel" nil)
261         (:cffi gtk::colormap gtk::widget-colormap (g-object gdk::gdk-colormap)
262          "gtk_widget_get_colormap" "gtk_widget_set_colormap")
263         (:cffi gtk::visual gtk::widget-visual (g-object gdk::visual)
264          "gtk_widget_get_visual" nil)
265         (:cffi gtk::modifier-style gtk::widget-modifier-style (g-object gtk::rc-style)
266          "gtk_widget_get_modifier_style" "gtk_widget_modify_style")
267         (:cffi gtk::pango-context gtk::widget-pango-context g-object
268          "gtk_widget_get_pango_context" nil)
269         (:cffi gtk::child-visible gtk::widget-child-visible :boolean
270          "gtk_widget_get_child_visible" "gtk_widget_set_child_visible")
271         (:cffi gtk::direction gtk::widget-direction gtk::text-direction
272          "gtk_widget_get_direction" "gtk_widget_set_direction")
273         (:cffi gtk::composite-name gtk::widget-composite-name (glib:g-string :free-from-foreign t :free-to-foreign t)
274          "gtk_widget_get_composite_name" "gtk_widget_set_composite_name")
275         (:cffi gtk::redraw-on-allocate gtk::widget-redraw-on-allocate :boolean
276          nil "gtk_widget_set_redraw_on_allocate")
277         (:cffi gtk::accessible gtk::widget-accessible g-object
278          "gtk_widget_get_accessible" nil)
279         (:cffi gtk::tooltip-window gtk::widget-tooltip-window g-object
280          "gtk_widget_get_tooltip_window" "gtk_widget_set_tooltip_window"))
281        ("GtkWindowGroup"
282         (:cffi gtk::windows gtk::window-group-windows (glist (g-object gtk::gtk-window))
283          "gtk_window_group_list_windows" nil))
284        ("GtkTextTag"
285         (:cffi gtk::priority gtk::text-tag-priority :int
286          "gtk_text_tag_get_priority" "gtk_text_tag_set_priority"))
287        ("GtkDialog"
288         (:cffi gtk::content-area gtk::dialog-content-area (g-object gtk::v-box)
289          "gtk_dialog_get_content_area" nil)
290         (:cffi gtk::action-area gtk::dialog-action-area (g-object gtk::widget)
291          "gtk_dialog_get_action_area" nil)
292         (:cffi gtk::default-response gtk::dialog-default-response gtk::response-type
293          nil "gtk_dialog_set_default_response"))
294        ("GtkAssistant"
295         (:cffi gtk::current-page gtk::assistant-current-page :int
296          "gtk_assistant_get_current_page" "gtk_assistant_set_current_page")
297         (:cffi gtk::n-pages gtk::assistant-n-pages :int
298          "gtk_assistant_get_n_pages" nil)
299         (:cffi gtk::forward-page-function gtk::assistant-forward-page-function nil
300          nil gtk::set-assistant-forward-page-function))
301        ("GtkLabel"
302         (:cffi gtk::line-wrap gtk::label-line-wrap :boolean
303          "gtk_label_get_line_wrap" "gtk_label_set_line_wrap")
304         (:cffi gtk::line-wrap-mode gtk::label-line-wrap-mode gtk::pango-wrap-mode
305          "gtk_label_get_line_wrap_mode" "gtk_label_set_line_wrap_mode")
306         (:cffi gtk::layout gtk::label-layout g-object
307          "gtk_label_get_layout" nil)
308         (:cffi gtk::selection-bounds gtk::label-selection-bounds nil
309          gtk::gtk-label-get-selection-bounds nil)
310         (:cffi gtk::layout-offsets gtk::label-layout-offsets nil
311          gtk::gtk-label-get-layout-offsets nil))
312        ("GtkEntry"
313         (:cffi gtk::layout gtk::entry-layout g-object
314          "gtk_entry_get_layout" nil)
315         (:cffi gtk::completion gtk::entry-completion (g-object gtk::entry-completion)
316          "gtk_entry_get_completion" "gtk_entry_set_completion")
317         (:cffi gtk::cursor-hadjustment gtk::entry-cursor-hadjustment (g-object gtk::adjustment)
318          "gtk_entry_get_cursor_hadjustment" "gtk_entry_set_cursor_hadjustment")
319         (:cffi gtk::layout-offset gtk::entry-layout-offset nil
320          gtk::gtk-entry-layout-offset nil))
321        ("GtkPageSetupUnixDialog"
322         (:cffi gtk::page-setup gtk::page-setup-unix-dialog-page-setup (g-object gtk::page-setup)
323          "gtk_page_setup_unix_dialog_get_page_setup" "gtk_page_setup_unix_dialog_set_page_setup")
324         (:cffi gtk::print-settings gtk::page-setup-unix-dialog-print-settings (g-object gtk::print-settings)
325          "gtk_page_setup_unix_dialog_get_print_settings" "gtk_page_setup_unix_dialog_set_print_settings"))
326        ("GtkEntryCompletion"
327         (:cffi gtk::entry gtk::entry-completion-entry (g-object gtk::entry)
328          "gtk_entry_completion_get_entry" nil)
329         (:cffi gtk::match-function gtk::entry-completion-match-function nil
330          nil gtk::gtk-entry-completion-set-match-function))
331        ("GtkEditable"
332         (:cffi gtk::position gtk::editable-position :int
333          "gtk_editable_get_position" "gtk_editable_set_position")
334         (:cffi gtk::editable gtk::editable-editable :boolean
335          "gtk_editable_get_editable" "gtk_editable_set_editable"))
336        ("GtkTextMark"
337         (:cffi gtk::visible gtk::text-mark-visible :boolean
338          "gtk_text_mark_get_visible" "gtk_text_mark_set_visible")
339         (:cffi gtk::deleted gtk::text-mark-deleted :boolean
340          "gtk_text_mark_get_deleted" nil)
341         (:cffi gtk::buffer gtk::text-mark-buffer (g-object gtk::text-buffer)
342          "gtk_text_mark_get_buffer" nil))
343        ("GtkTextBuffer"
344         (:cffi gtk::modified gtk::text-buffer-modified :boolean
345          "gtk_text_buffer_get_modified" "gtk_text_buffer_set_modified"))
346        ("GtkToolShell"
347         (:cffi gtk::icon-size gtk::tool-shell-icon-size gtk::icon-size
348          "gtk_tool_shell_get_icon_size" nil)
349         (:cffi gtk::orientation gtk::tool-shell-orientation gtk::orientation
350          "gtk_tool_shell_get_orientation" nil)
351         (:cffi gtk::relief-style gtk::tool-shell-relief-style gtk::relief-style
352          "gtk_tool_shell_get_relief_style" nil)
353         (:cffi gtk::style gtk::tool-shell-style gtk::toolbar-style
354          "gtk_tool_shell_get_style" nil))
355        ("GtkColorSelection"
356         (:cffi gtk::previous-alpha gtk::color-selection-previous-alpha :uint16
357          "gtk_color_selection_get_previous_alpha" "gtk_color_selection_set_previous_alpha")
358         (:cffi gtk::previous-color gtk::color-selection-previous-color (g-boxed-foreign gdk::color)
359          gtk::gtk-color-selection-get-previous-color gtk::gtk-color-selection-set-previous-color))
360        ("GtkScrolledWindow"
361         (:cffi gtk::hscrollbar gtk::scrolled-window-hscrollbar (g-object gtk::widget)
362          "gtk_scrolled_window_get_hscrollbar" nil)
363         (:cffi gtk::vscrollbar gtk::scrolled-window-vscrollbar (g-object gtk::widget)
364          "gtk_scrolled_window_get_vscrollbar" nil))
365        ("GtkBin"
366         (:cffi gtk::child gtk::bin-child (g-object gtk::widget)
367          "gtk_bin_get_child" nil))))))
368
369 (defun gtk-generate-child-properties (filename)
370   (with-open-file (stream filename :direction :output :if-exists :supersede)
371     (let ((*package* (find-package :gtk))
372           (*print-case* :downcase))
373      (write-string "(in-package :gtk)" stream)
374      (terpri stream)
375      (format stream "~{~S~%~%~}" (gtk:generate-child-properties)))))