X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=generating.lisp;h=bf3bd5a80a8fc271505015ee912dc52e2c1aa8e0;hb=67c097c0b05d1b89ec7b421ed780c792e3cc08dd;hp=1623ac956a0f3e40b21d9035d2a0322a2ff5b3bf;hpb=12ed5ccace8b9a1c0c757016e0c25247404fde03;p=cl-gtk2.git diff --git a/generating.lisp b/generating.lisp index 1623ac9..bf3bd5a 100644 --- a/generating.lisp +++ b/generating.lisp @@ -69,7 +69,8 @@ "GtkTextBuffer" "GtkTextChildAnchor" "GtkTextMark" "GtkTextTag" "GtkTextTagTable" "GtkTreeModelFilter" "GtkTreeModelSort" "GtkTreeSelection" "GtkTreeStore" "GtkUIManager" "GtkWindowGroup" - "GtkToggleAction" "GtkRecentAction" "GtkRadioAction" "GtkItemFactory") + "GtkToggleAction" "GtkRecentAction" "GtkRadioAction" "GtkItemFactory" + "GtkPageSetupUnixDialog" "GtkPrintUnixDialog") :flags '("GtkTextSearchFlags" "GtkAccelFlags" "GtkArgFlags" "GtkAttachOptions" "GtkButtonAction" "GtkCalendarDisplayOptions" "GtkCellRendererState" "GtkDebugFlag" "GtkDestDefaults" "GtkDialogFlags" "GtkFileFilterFlags" @@ -104,10 +105,31 @@ "GtkSubmenuDirection" "GtkSubmenuPlacement" "GtkTextWindowType" "GtkToolbarChildType" "GtkToolbarSpaceStyle" "GtkTreeViewDropPosition" "GtkTreeViewMode" "GtkVisibility" "GtkEntryIconPosition") - :exclusions '("PangoStretch" "PangoVariant" "PangoStyle" "PangoUnderline" "GtkGLDrawingArea") + :exclusions '("PangoStretch" "PangoVariant" "PangoStyle" "PangoUnderline" "GtkGLDrawingArea" + "GtkCList" "GtkCTree" "GtkCombo" "GtkFileSelection" "GtkItemFactory" "GtkList" + "GtkListItem" "GtkOldEditable" "GtkOptionMenu" "GtkPixmap" "GtkPreview" + "GtkText" "GtkTooltips" "GtkTipsQuery" "GtkTree" "GtkTreeItem") :additional-properties - '(("GtkTreeViewColumn" - (:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object "gtk_tree_view_column_get_tree_view" nil) + '(("GtkWindow" + (:cffi gtk::focus gtk::gtk-window-focus (g-object gtk::widget) + "gtk_window_get_focus" "gtk_window_set_focus") + (:cffi gtk::default-widget gtk::gtk-window-default-widget (g-object gtk::widget) + "gtk_window_get_default_widget" "gtk_window_set_default") + (:cffi gtk::has-frame gtk::gtk-window-has-frame :boolean + "gtk_window_get_has_frame" "gtk_window_set_has_frame") + (:cffi gtk::mnemonic-modifier gtk::gtk-window-mnemonic-modifier (g-object gdk::modifier-type) + "gtk_window_get_mnemonic_modifier" "gtk_window_set_mnemonic_modifier") + (:cffi gtk::icon-list gtk::gtk-window-icon-list (glist gtk::pixbuf :free-from-foreign t :free-to-foreign t) + "gtk_window_get_icon_list" "gtk_window_set_icon_list") + (:cffi gtk::group gtk::gtk-window-group (g-object gtk::window-group) + "gtk_window_get_group" nil) + (:cffi gtk::keep-above gtk::gtk-window-keep-above :boolean + nil "gtk_window_set_keep_above") + (:cffi gtk::keep-below gtk::gtk-window-keep-below :boolean + nil "gtk_window_set_keep_below")) + ("GtkTreeViewColumn" + (:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object + "gtk_tree_view_column_get_tree_view" nil) (:cffi gtk::sort-column-id gtk::tree-view-column-sort-column-id :int "gtk_tree_view_column_get_sort_column_id" "gtk_tree_view_column_set_sort_column_id") (:cffi gtk::cell-renderers gtk::tree-view-column-cell-renderers (glist g-object :free-from-foreign t) @@ -220,6 +242,20 @@ (:cffi gtk::focus-hadjustment gtk::container-focus-hadjustment g-object "gtk_container_get_focus_hadjustment" "gtk_container_set_focus_hadjustment")) ("GtkWidget" + (:cffi gtk::parent-window gtk::widget-parent-window (g-object gdk::gdk-window) + "gtk_widget_get_parent_window" "gtk_widget_set_parent_window") + (:cffi gtk::toplevel gtk::widget-toplevel (g-object gtk::widget) + "gtk_widget_get_toplevel" nil) + (:cffi gtk::colormap gtk::widget-colormap (g-object gdk::gdk-colormap) + "gtk_widget_get_colormap" "gtk_widget_set_colormap") + (:cffi gtk::visual gtk::widget-visual (g-object gdk::visual) + "gtk_widget_get_visual" nil) + (:cffi gtk::modifier-style gtk::widget-modifier-style (g-object gtk::rc-style) + "gtk_widget_get_modifier_style" "gtk_widget_modify_style") + (:cffi gtk::pango-context gtk::widget-pango-context g-object + "gtk_widget_get_pango_context" nil) + (:cffi gtk::child-visible gtk::widget-child-visible :boolean + "gtk_widget_get_child_visible" "gtk_widget_set_child_visible") (:cffi gtk::direction gtk::widget-direction gtk::text-direction "gtk_widget_get_direction" "gtk_widget_set_direction") (:cffi gtk::composite-name gtk::widget-composite-name (glib:g-string :free-from-foreign t :free-to-foreign t) @@ -229,14 +265,9 @@ (:cffi gtk::accessible gtk::widget-accessible g-object "gtk_widget_get_accessible" nil) (:cffi gtk::tooltip-window gtk::widget-tooltip-window g-object - "gtk_widget_get_tooltip_window" "gtk_widget_set_tooltip_window")) - ("GtkWindow" - (:cffi gtk::default-widget gtk::window-default-widget (g-object gtk::widget) - "gtk_window_get_default_widget" "gtk_window_set_default") - (:cffi gtk::focus gtk::window-focus (g-object gtk::widget) - "gtk_window_get_focus" "gtk_window_set_focus")) + "gtk_widget_get_tooltip_window" "gtk_widget_set_tooltip_window")) ("GtkWindowGroup" - (:cffi gtk::windows gtk::window-group-windows (glist (g-object gtk::window)) + (:cffi gtk::windows gtk::window-group-windows (glist (g-object gtk::gtk-window)) "gtk_window_group_list_windows" nil)) ("GtkTextTag" (:cffi gtk::priority gtk::text-tag-priority :int @@ -274,7 +305,32 @@ (:cffi gtk::cursor-hadjustment gtk::entry-cursor-hadjustment (g-object gtk::adjustment) "gtk_entry_get_cursor_hadjustment" "gtk_entry_set_cursor_hadjustment") (:cffi gtk::layout-offset gtk::entry-layout-offset nil - gtk::gtk-entry-layout-offset nil)))))) + gtk::gtk-entry-layout-offset nil)) + ("GtkPageSetupUnixDialog" + (:cffi gtk::page-setup gtk::page-setup-unix-dialog-page-setup (g-object gtk::page-setup) + "gtk_page_setup_unix_dialog_get_page_setup" "gtk_page_setup_unix_dialog_set_page_setup") + (:cffi gtk::print-settings gtk::page-setup-unix-dialog-print-settings (g-object gtk::print-settings) + "gtk_page_setup_unix_dialog_get_print_settings" "gtk_page_setup_unix_dialog_set_print_settings")) + ("GtkEntryCompletion" + (:cffi gtk::entry gtk::entry-completion-entry (g-object gtk::entry) + "gtk_entry_completion_get_entry" nil) + (:cffi gtk::match-function gtk::entry-completion-match-function nil + nil gtk::gtk-entry-completion-set-match-function)) + ("GtkEditable" + (:cffi gtk::position gtk::editable-position :int + "gtk_editable_get_position" "gtk_editable_set_position") + (:cffi gtk::editable gtk::editable-editable :boolean + "gtk_editable_get_editable" "gtk_editable_set_editable")) + ("GtkTextMark" + (:cffi gtk::visible gtk::text-mark-visible :boolean + "gtk_text_mark_get_visible" "gtk_text_mark_set_visible") + (:cffi gtk::deleted gtk::text-mark-deleted :boolean + "gtk_text_mark_get_deleted" nil) + (:cffi gtk::buffer gtk::text-mark-buffer (g-object gtk::text-buffer) + "gtk_text_mark_get_buffer" nil)) + ("GtkTextBuffer" + (:cffi gtk::modified gtk::text-buffer-modified :boolean + "gtk_text_buffer_get_modified" "gtk_text_buffer_set_modified")))))) (defun gtk-generate-child-properties (filename) (with-open-file (stream filename :direction :output :if-exists :supersede)