+ (shadow-type viewport-shadow-type "shadow-type"
+ "GtkShadowType" t t)
+ (vadjustment viewport-vadjustment "vadjustment"
+ "GtkAdjustment" t t)))
+
+(define-g-object-class "GtkWindow" gtk-window
+ (:superclass bin :export t :interfaces
+ ("AtkImplementorIface" "GtkBuildable")
+ :type-initializer "gtk_window_get_type")
+ ((accept-focus gtk-window-accept-focus "accept-focus"
+ "gboolean" t t)
+ (allow-grow gtk-window-allow-grow "allow-grow"
+ "gboolean" t t)
+ (allow-shrink gtk-window-allow-shrink "allow-shrink"
+ "gboolean" t t)
+ (decorated gtk-window-decorated "decorated" "gboolean"
+ t t)
+ (default-height gtk-window-default-height
+ "default-height" "gint" t t)
+ (default-width gtk-window-default-width "default-width"
+ "gint" t t)
+ (deletable gtk-window-deletable "deletable" "gboolean"
+ t t)
+ (destroy-with-parent gtk-window-destroy-with-parent
+ "destroy-with-parent" "gboolean" t t)
+ (focus-on-map gtk-window-focus-on-map "focus-on-map"
+ "gboolean" t t)
+ (gravity gtk-window-gravity "gravity" "GdkGravity" t t)
+ (has-toplevel-focus gtk-window-has-toplevel-focus
+ "has-toplevel-focus" "gboolean" t nil)
+ (icon gtk-window-icon "icon" "GdkPixbuf" t t)
+ (icon-name gtk-window-icon-name "icon-name"
+ "gchararray" t t)
+ (is-active gtk-window-is-active "is-active" "gboolean"
+ t nil)
+ (modal gtk-window-modal "modal" "gboolean" t t)
+ (opacity gtk-window-opacity "opacity" "gdouble" t t)
+ (resizable gtk-window-resizable "resizable" "gboolean"
+ t t)
+ (role gtk-window-role "role" "gchararray" t t)
+ (screen gtk-window-screen "screen" "GdkScreen" t t)
+ (skip-pager-hint gtk-window-skip-pager-hint
+ "skip-pager-hint" "gboolean" t t)
+ (skip-taskbar-hint gtk-window-skip-taskbar-hint
+ "skip-taskbar-hint" "gboolean" t t)
+ (startup-id gtk-window-startup-id "startup-id"
+ "gchararray" nil t)
+ (title gtk-window-title "title" "gchararray" t t)
+ (transient-for gtk-window-transient-for "transient-for"
+ "GtkWindow" t t)
+ (type gtk-window-type "type" "GtkWindowType" t nil)
+ (type-hint gtk-window-type-hint "type-hint"
+ "GdkWindowTypeHint" t t)
+ (urgency-hint gtk-window-urgency-hint "urgency-hint"
+ "gboolean" t t)
+ (window-position gtk-window-window-position
+ "window-position" "GtkWindowPosition" t t)
+ (: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 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")
+ ((: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
+ ("AtkImplementorIface" "GtkBuildable")
+ :type-initializer "gtk_dialog_get_type")
+ ((has-separator dialog-has-separator "has-separator"
+ "gboolean" t t)
+ (:cffi content-area dialog-content-area
+ (g-object v-box) "gtk_dialog_get_content_area" nil)
+ (:cffi action-area dialog-action-area (g-object widget)
+ "gtk_dialog_get_action_area" nil)
+ (:cffi default-response dialog-default-response
+ response-type nil "gtk_dialog_set_default_response")))
+
+(define-g-object-class "GtkAboutDialog" about-dialog
+ (:superclass dialog :export t :interfaces
+ ("AtkImplementorIface" "GtkBuildable")
+ :type-initializer "gtk_about_dialog_get_type")
+ ((artists about-dialog-artists "artists" "GStrv" t t)
+ (authors about-dialog-authors "authors" "GStrv" t t)
+ (comments about-dialog-comments "comments" "gchararray"
+ t t)
+ (copyright about-dialog-copyright "copyright"
+ "gchararray" t t)
+ (documenters about-dialog-documenters "documenters"
+ "GStrv" t t)
+ (license about-dialog-license "license" "gchararray" t
+ t)
+ (logo about-dialog-logo "logo" "GdkPixbuf" t t)
+ (logo-icon-name about-dialog-logo-icon-name
+ "logo-icon-name" "gchararray" t t)
+ (program-name about-dialog-program-name "program-name"
+ "gchararray" t t)
+ (translator-credits about-dialog-translator-credits
+ "translator-credits" "gchararray" t t)
+ (version about-dialog-version "version" "gchararray" t
+ t)
+ (website about-dialog-website "website" "gchararray" t
+ t)
+ (website-label about-dialog-website-label
+ "website-label" "gchararray" t t)
+ (wrap-license about-dialog-wrap-license "wrap-license"
+ "gboolean" t t)))
+
+(define-g-object-class "GtkColorSelectionDialog" color-selection-dialog
+ (:superclass dialog :export t :interfaces
+ ("AtkImplementorIface" "GtkBuildable")
+ :type-initializer
+ "gtk_color_selection_dialog_get_type")
+ ((cancel-button color-selection-dialog-cancel-button
+ "cancel-button" "GtkWidget" t nil)
+ (color-selection color-selection-dialog-color-selection
+ "color-selection" "GtkWidget" t nil)
+ (help-button color-selection-dialog-help-button
+ "help-button" "GtkWidget" t nil)
+ (ok-button color-selection-dialog-ok-button "ok-button"
+ "GtkWidget" t nil)))
+
+(define-g-object-class "GtkFileChooserDialog" file-chooser-dialog
+ (:superclass dialog :export t :interfaces
+ ("AtkImplementorIface" "GtkBuildable" "GtkFileChooser")
+ :type-initializer "gtk_file_chooser_dialog_get_type")
+ nil)
+
+(define-g-object-class "GtkFontSelectionDialog" font-selection-dialog
+ (:superclass dialog :export t :interfaces
+ ("AtkImplementorIface" "GtkBuildable")
+ :type-initializer "gtk_font_selection_dialog_get_type")
+ ((:cffi font-name font-selection-dialog-font-name
+ (g-string :free-from-foreign t :free-to-foreign t)
+ "gtk_font_selection_dialog_get_font_name"
+ "gtk_font_selection_dialog_set_font_name")
+ (:cffi preview-text font-selection-dialog-preview-text
+ :string "gtk_font_selection_dialog_get_preview_text"
+ "gtk_font_selection_dialog_set_preview_text")
+ (:cffi apply-button font-selection-dialog-apply-button
+ g-object "gtk_font_selection_dialog_get_apply_button"
+ nil)
+ (:cffi cancel-button
+ font-selection-dialog-cancel-button g-object
+ "gtk_font_selection_dialog_get_cancel_button" nil)
+ (:cffi ok-button font-selection-dialog-ok-button
+ g-object "gtk_font_selection_dialog_get_ok_button"
+ nil)))