X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.generated-classes.lisp;h=c3c3163d878f5b3630434e64aa3cb84cefe3f025;hb=e4a92f10d2d86fa38ee76a88198e229954ae0780;hp=2cd35d423727256f64ae13d702dfa5cb27d8f9b5;hpb=423fdc0e42812b80142d2175f50e1fb2c408c4af;p=cl-gtk2.git diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index 2cd35d4..c3c3163 100644 --- a/gtk/gtk.generated-classes.lisp +++ b/gtk/gtk.generated-classes.lisp @@ -430,6 +430,10 @@ (:export t :type-initializer "gtk_visibility_get_type") (:none 0) (:partial 1) (:full 2)) +(define-g-enum "GtkEntryIconPosition" entry-icon-position + (:export t :type-initializer "gtk_entry_icon_position_get_type") + (:primary 0) (:secondary 1)) + (define-g-flags "GtkTextSearchFlags" text-search-flags (:export t :type-initializer "gtk_text_search_flags_get_type") (:visible-only 1) (:text-only 2)) @@ -887,21 +891,11 @@ "gtk_file_filter_get_name" "gtk_file_filter_set_name"))) -(define-g-object-class "GtkItemFactory" item-factory - (:superclass gtk-object :export t :interfaces nil - :type-initializer "gtk_item_factory_get_type") - nil) - (define-g-object-class "GtkRecentFilter" recent-filter (:superclass gtk-object :export t :interfaces nil :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 @@ -982,6 +976,23 @@ (width-request widget-width-request "width-request" "gint" t t) (window widget-window "window" "GdkWindow" t nil) + (:cffi parent-window widget-parent-window + (g-object gdk-window) "gtk_widget_get_parent_window" + "gtk_widget_set_parent_window") + (:cffi toplevel widget-toplevel (g-object widget) + "gtk_widget_get_toplevel" nil) + (:cffi colormap widget-colormap (g-object gdk-colormap) + "gtk_widget_get_colormap" "gtk_widget_set_colormap") + (:cffi visual widget-visual (g-object visual) + "gtk_widget_get_visual" nil) + (:cffi modifier-style widget-modifier-style + (g-object rc-style) "gtk_widget_get_modifier_style" + "gtk_widget_modify_style") + (:cffi pango-context widget-pango-context g-object + "gtk_widget_get_pango_context" nil) + (:cffi child-visible widget-child-visible :boolean + "gtk_widget_get_child_visible" + "gtk_widget_set_child_visible") (:cffi direction widget-direction text-direction "gtk_widget_get_direction" "gtk_widget_set_direction") (:cffi composite-name widget-composite-name @@ -1332,12 +1343,6 @@ :type-initializer "gtk_tearoff_menu_item_get_type") nil) -(define-g-object-class "GtkTreeItem" tree-item - (:superclass item :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") - :type-initializer "gtk_tree_item_get_type") - nil) - (define-g-object-class "GtkScrolledWindow" scrolled-window (:superclass bin :export t :interfaces ("AtkImplementorIface" "GtkBuildable") @@ -1493,17 +1498,35 @@ "gboolean" t t) (window-position gtk-window-window-position "window-position" "GtkWindowPosition" t t) - (:cffi default-widget window-default-widget + (:cffi focus gtk-window-focus (g-object widget) + "gtk_window_get_focus" "gtk_window_set_focus") + (:cffi default-widget gtk-window-default-widget (g-object widget) "gtk_window_get_default_widget" "gtk_window_set_default") - (:cffi focus window-focus (g-object widget) - "gtk_window_get_focus" "gtk_window_set_focus"))) + (:cffi has-frame gtk-window-has-frame :boolean + "gtk_window_get_has_frame" "gtk_window_set_has_frame") + (:cffi mnemonic-modifier gtk-window-mnemonic-modifier + (g-object modifier-type) + "gtk_window_get_mnemonic_modifier" + "gtk_window_set_mnemonic_modifier") + (:cffi icon-list gtk-window-icon-list + (glist pixbuf :free-from-foreign t :free-to-foreign t) + "gtk_window_get_icon_list" "gtk_window_set_icon_list") + (:cffi group gtk-window-group (g-object window-group) + "gtk_window_get_group" nil))) (define-g-object-class "GtkAssistant" assistant (:superclass gtk-window :export t :interfaces ("AtkImplementorIface" "GtkBuildable") :type-initializer "gtk_assistant_get_type") - nil) + ((:cffi current-page assistant-current-page :int + "gtk_assistant_get_current_page" + "gtk_assistant_set_current_page") + (:cffi n-pages assistant-n-pages :int + "gtk_assistant_get_n_pages" nil) + (:cffi forward-page-function + assistant-forward-page-function nil nil + set-assistant-forward-page-function))) (define-g-object-class "GtkDialog" dialog (:superclass gtk-window :export t :interfaces @@ -1613,6 +1636,34 @@ (use-markup message-dialog-use-markup "use-markup" "gboolean" t t))) +(define-g-object-class "GtkPageSetupUnixDialog" page-setup-unix-dialog + (:superclass dialog :export t :interfaces + ("AtkImplementorIface" "GtkBuildable") + :type-initializer + "gtk_page_setup_unix_dialog_get_type") + ((:cffi page-setup page-setup-unix-dialog-page-setup + (g-object page-setup) + "gtk_page_setup_unix_dialog_get_page_setup" + "gtk_page_setup_unix_dialog_set_page_setup") + (:cffi print-settings + page-setup-unix-dialog-print-settings + (g-object print-settings) + "gtk_page_setup_unix_dialog_get_print_settings" + "gtk_page_setup_unix_dialog_set_print_settings"))) + +(define-g-object-class "GtkPrintUnixDialog" print-unix-dialog + (:superclass dialog :export t :interfaces + ("AtkImplementorIface" "GtkBuildable") + :type-initializer "gtk_print_unix_dialog_get_type") + ((current-page print-unix-dialog-current-page + "current-page" "gint" t t) + (page-setup print-unix-dialog-page-setup "page-setup" + "GtkPageSetup" t t) + (print-settings print-unix-dialog-print-settings + "print-settings" "GtkPrintSettings" t t) + (selected-printer print-unix-dialog-selected-printer + "selected-printer" "GtkPrinter" t nil))) + (define-g-object-class "GtkRecentChooserDialog" recent-chooser-dialog (:superclass dialog :export t :interfaces ("AtkImplementorIface" "GtkBuildable" @@ -1939,12 +1990,6 @@ "GtkToolbarStyle" t t) (tooltips toolbar-tooltips "tooltips" "gboolean" t t))) -(define-g-object-class "GtkTree" tree - (:superclass container :export t :interfaces - ("AtkImplementorIface" "GtkBuildable") - :type-initializer "gtk_tree_get_type") - nil) - (define-g-object-class "GtkTreeView" tree-view (:superclass container :export t :interfaces ("AtkImplementorIface" "GtkBuildable") @@ -2109,7 +2154,18 @@ t) (width-chars entry-width-chars "width-chars" "gint" t t) - (xalign entry-xalign "xalign" "gfloat" t t))) + (xalign entry-xalign "xalign" "gfloat" t t) + (:cffi layout entry-layout g-object + "gtk_entry_get_layout" nil) + (:cffi completion entry-completion + (g-object entry-completion) "gtk_entry_get_completion" + "gtk_entry_set_completion") + (:cffi cursor-hadjustment entry-cursor-hadjustment + (g-object adjustment) + "gtk_entry_get_cursor_hadjustment" + "gtk_entry_set_cursor_hadjustment") + (:cffi layout-offset entry-layout-offset nil + gtk-entry-layout-offset nil))) (define-g-object-class "GtkSpinButton" spin-button (:superclass entry :export t :interfaces @@ -2215,7 +2271,18 @@ t) (wrap label-wrap "wrap" "gboolean" t t) (wrap-mode label-wrap-mode "wrap-mode" "PangoWrapMode" - t t))) + t t) + (:cffi line-wrap label-line-wrap :boolean + "gtk_label_get_line_wrap" "gtk_label_set_line_wrap") + (:cffi line-wrap-mode label-line-wrap-mode + pango-wrap-mode "gtk_label_get_line_wrap_mode" + "gtk_label_set_line_wrap_mode") + (:cffi layout label-layout g-object + "gtk_label_get_layout" nil) + (:cffi selection-bounds label-selection-bounds nil + gtk-label-get-selection-bounds nil) + (:cffi layout-offsets label-layout-offsets nil + gtk-label-get-layout-offsets nil))) (define-g-object-class "GtkAccelLabel" accel-label (:superclass label :export t :interfaces @@ -2226,26 +2293,6 @@ (accel-widget accel-label-accel-widget "accel-widget" "GtkWidget" t t))) -(define-g-object-class "GtkOldEditable" old-editable - (:superclass widget :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" "GtkEditable") - :type-initializer "gtk_old_editable_get_type") - ((editable old-editable-editable "editable" "gboolean" t - t) - (text-position old-editable-text-position - "text-position" "gint" t t))) - -(define-g-object-class "GtkText" text - (:superclass old-editable :export t :interfaces - ("AtkImplementorIface" "GtkBuildable" "GtkEditable") - :type-initializer "gtk_text_get_type") - ((hadjustment text-hadjustment "hadjustment" - "GtkAdjustment" t t) - (line-wrap text-line-wrap "line-wrap" "gboolean" t t) - (vadjustment text-vadjustment "vadjustment" - "GtkAdjustment" t t) - (word-wrap text-word-wrap "word-wrap" "gboolean" t t))) - (define-g-object-class "GtkProgress" progress (:superclass widget :export t :interfaces ("AtkImplementorIface" "GtkBuildable") @@ -2645,7 +2692,11 @@ (popup-single-match entry-completion-popup-single-match "popup-single-match" "gboolean" t t) (text-column entry-completion-text-column "text-column" - "gint" t t))) + "gint" t t) + (:cffi entry entry-completion-entry (g-object entry) + "gtk_entry_completion_get_entry" nil) + (:cffi match-function entry-completion-match-function + nil nil gtk-entry-completion-set-match-function))) (define-g-object-class "GtkIconFactory" icon-factory (:superclass g-object :export t :interfaces @@ -2959,7 +3010,7 @@ (:superclass g-object :export t :interfaces nil :type-initializer "gtk_window_group_get_type") ((:cffi windows window-group-windows - (glist (g-object window)) + (glist (g-object gtk-window)) "gtk_window_group_list_windows" nil))) (define-g-object-class "GtkToggleAction" toggle-action