- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkFileSelection"))
-
-(defclass file-selection-child (window-child)
- ()
- (:metaclass child-class))
-
-
-; (defclass plug window)
-
-
-(defclass event-box (bin)
- ()
- (:metaclass container-class)
- (:alien-name "GtkEventBox"))
-
-(defclass event-box-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass handle-box (bin)
- ((shadow-type
- :allocation :param
- :location "GtkHandleBox::shadow"
- :accessor handle-box-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (handle-position
- :allocation :param
- :accessor handle-box-handle-position
- :initarg :handle-position
- :type position-type)
- (snap-edge
- :allocation :param
- :accessor handle-box-snap-edge
- :initarg :snap-edge
- :type position-type))
- (:metaclass container-class)
- (:alien-name "GtkHandleBox"))
-
-(defclass handle-box-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass scrolled-window (bin)
- ((hadjustment
- :allocation :param
- :accessor scrolled-window-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :param
- :accessor scrolled-window-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (hscrollbar-policy
- :allocation :param
- :accessor scrolled-window-hscrollbar-policy
- :initarg :hscrollbar-policy
- :type policy-type)
- (vscrollbar-policy
- :allocation :param
- :accessor scrolled-window-vscrollbar-policy
- :initarg :vscrollbar-policy
- :type policy-type)
- (placement
- :allocation :param
- :location "GtkScrolledWindow::window_placement"
- :accessor scrolled-window-placement
- :initarg :placement
- :type corner-type)
- (shadow-type
- :allocation :param
- :location "GtkScrolledWindow::shadow"
- :accessor scrolled-window-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (hscrollbar
- :allocation :virtual
- :location "gtk_scrolled_window_get_hscrollbar"
- :accessor scrolled-window-hscrollbar
- :type widget)
- (vscrollbar
- :allocation :virtual
- :location "gtk_scrolled_window_get_vscrollbar"
- :accessor scrolled-window-vscrollbar
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkScrolledWindow"))
-
-(defclass scrolled-window-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass viewport (bin)
- ((hadjustment
- :allocation :param
- :accessor viewport-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :param
- :accessor viewport-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (shadow-type
- :allocation :param
- :accessor viewport-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass container-class)
- (:alien-name "GtkViewport"))
-
-(defclass viewport-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass box (container)
- ((spacing
- :allocation :param
- :accessor box-spacing
- :initarg :spacing
- :type int)
- (homogeneous
- :allocation :param
- :accessor box-homogeneous-p
- :initarg :homogeneous
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkBox"))
-
-(defclass box-child (container-child)
- ((expand
- :allocation :arg
- :accessor box-child-expand-p
- :initarg :expand
- :type boolean)
- (fill
- :allocation :arg
- :accessor box-child-fill-p
- :initarg :fill
- :type boolean)
- (padding
- :allocation :arg
- :accessor box-child-padding
- :initarg :padding
- :type unsigned-long)
- (pack-type
- :allocation :arg
- :accessor box-child-pack-type
- :initarg :pack-type
- :type pack-type)
- (position
- :allocation :arg
- :accessor box-child-position
- :initarg :position
- :type long))
- (:metaclass child-class))
-
-
-(defclass button-box (box)
- ((spacing
- :allocation :virtual
- :location ("gtk_button_box_get_spacing" "gtk_button_box_set_spacing")
- :accessor button-box-spacing
- :initarg :spacing
- :type int)
- (child-min-width
- :allocation :alien
- :offset #.(size-of 'int)
- :accessor button-box-child-min-width
- :initarg :child-min-width
- :type int)
- (child-min-height
- :allocation :alien
- :accessor button-box-child-min-height
- :initarg :child-min-height
- :type int)
- (child-ipad-x
- :allocation :alien
- :accessor button-box-child-ipad-x
- :initarg :child-ipad-x
- :type int)
- (child-ipad-y
- :allocation :alien
- :accessor button-box-child-ipad-y
- :initarg :child-ipad-y
- :type int)
- (layout
- :allocation :virtual
- :location ("gtk_button_box_get_layout" "gtk_button_box_set_layout")
- :accessor button-box-layout
- :initarg :layout
- :type button-box-style))
- (:metaclass container-class)
- (:alien-name "GtkButtonBox"))
-
-(defclass button-box-child (box-child)
- ()
- (:metaclass child-class))
-
-
-(defclass hbutton-box (button-box)
- ()
- (:metaclass container-class)
- (:alien-name "GtkHButtonBox"))
-
-(defclass hbutton-box-child (button-box-child)
- ()
- (:metaclass child-class))
-
-
-(defclass vbutton-box (button-box)
- ()
- (:metaclass container-class)
- (:alien-name "GtkVButtonBox"))
-
-(defclass vbutton-box-child (button-box-child)
- ()
- (:metaclass child-class))
-
-
-(defclass vbox (box)
- ()
- (:metaclass container-class)
- (:alien-name "GtkVBox"))
-
-(defclass vbox-child (box-child)
- ()
- (:metaclass child-class))
-
-
-(defclass color-selection (vbox)
- ((use-opacity
- :allocation :virtual
- :location ("gtk_color_selection_get_use_opacity"
- "gtk_color_selection_set_use_opacity")
- :accessor color-selection-use-opacity-p
- :initarg :use-opacity
- :type boolean)
- (use-palette
- :allocation :virtual
- :location ("gtk_color_selection_get_use_palette"
- "gtk_color_selection_set_use_palette")
- :accessor color-selection-use-palette-p
- :initarg :use-palette
- :type boolean)
- (color
- :allocation :virtual
- :location color-selection-color
- :initarg :color)
- (old-color
- :allocation :virtual
- :location color-selection-old-color
- :initarg :old-color
- :type (vector double-float 4)))
- (:metaclass container-class)
- (:alien-name "GtkColorSelection"))
-
-(defclass color-selection-child (vbox-child)
- ()
- (:metaclass child-class))
-
-
-(defclass hbox (box)
- ()
- (:metaclass container-class)
- (:alien-name "GtkHBox"))
-
-(defclass hbox-child (box-child)
- ()
- (:metaclass child-class))
-
-
-(defclass statusbar (hbox)
- ()
- (:metaclass container-class)
- (:alien-name "GtkStatusbar"))
-
-(defclass statusbar-child (hbox-child)
- ()
- (:metaclass child-class))
-
-
-(defclass fixed (container)
- ()
- (:metaclass container-class)
- (:alien-name "GtkFixed"))
-
-(defclass fixed-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(defclass notebook (container)
- ((tab-pos
- :allocation :param
- :accessor notebook-tab-pos
- :initarg :tab-pos
- :type position-type)
- (show-tabs
- :allocation :param
- :accessor notebook-show-tabs-p
- :initarg :show-tabs
- :type boolean)
- (show-border
- :allocation :param
- :accessor notebook-show-border-p
- :initarg :show-border
- :type boolean)
- (scrollable
- :allocation :param
- :accessor notebook-scrollable-p
- :initarg :scrollable
- :type boolean)
- (tab-border
- :allocation :param
- :accessor notebook-tab-border
- :initarg :tab-border
- :type unsigned-int)
- (tab-hborder
- :allocation :param
- :accessor notebook-tab-hborder
- :initarg :tab-hborder
- :type unsigned-int)
- (tab-vborder
- :allocation :param
- :accessor notebook-tab-vborder
- :initarg :tab-vborder
- :type unsigned-int)
- (page
- :allocation :param
- :accessor notebook-page
- :initarg :page
- :type int)
- (enable-popup
- :allocation :param
- :accessor notebook-enable-popup-p
- :initarg :enable-popup
- :type boolean)
- (homogeneous
- :allocation :param
- :accessor notebook-homogeneous-p
- :initarg :homogeneous
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkNotebook"))
-
-(defclass notebook-child (container-child)
- ((tab-label
- :allocation :arg
- :accessor notebook-child-tab-label
- :initarg :tab-label
- :type string)
- (menu-label
- :allocation :arg
- :accessor notebook-child-menu-label
- :initarg :menu-label
- :type string)
- (position
- :allocation :arg
- :accessor notebook-child-position
- :initarg :position
- :type int)
- (tab-fill
- :allocation :arg
- :accessor notebook-child-tab-fill-p
- :initarg :tab-fill
- :type boolean)
- (tab-pack
- :allocation :arg
- :accessor notebook-child-tab-pack-p
- :initarg :tab-pack
- :type boolean))
- (:metaclass child-class))
-
-
-(defclass font-selection (notebook)
- ()
- (:metaclass container-class)
- (:alien-name "GtkFontSelection"))
-
-(defclass font-selection-child (notebook-child)
- ()
- (:metaclass child-class))
-
-
-(defclass paned (container)
- ((handle-size
- :allocation :param
- :accessor paned-handle-size
- :initarg handle-size
- :type unsigned-int)
- (position
- :allocation :virtual
- :location ("gtk_paned_get_position" "gtk_paned_set_position")
- :accessor paned-position
- :initarg :position
- :type int)
- (child1
- :allocation :virtual
- :location paned-child1
- :initarg :child1
- :type widget)
- (child2
- :allocation :virtual
- :location paned-child2
- :initarg :child2
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkPaned"))
-
-(defclass paned-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(defclass hpaned (paned)
- ()
- (:metaclass container-class)
- (:alien-name "GtkHPaned"))
-
-(defclass hpaned-child (paned-child)
- ()
- (:metaclass child-class))
-
-
-(defclass vpaned (paned)
- ()
- (:metaclass container-class)
- (:alien-name "GtkVPaned"))
-
-(defclass vpaned-child (paned-child)
- ()
- (:metaclass child-class))
-
-
-(defclass layout (container)
- ((hadjustment
- :allocation :virtual
- :location ("gtk_layout_get_hadjustment" "gtk_layout_set_hadjustment")
- :accessor layout-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :virtual
- :location ("gtk_layout_get_vadjustment" "gtk_layout_set_vadjustment")
- :accessor layout-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (x-size
- :allocation :virtual
- :location layout-x-size
- :initarg :x-size)
- (y-size
- :allocation :virtual
- :location layout-y-size
- :initarg :y-size)
- (x-offset
- :allocation :alien
- :offset #.(+ (size-of 'pointer) (* (size-of 'int) 2))
- :accessor layout-x-offset
- :initarg :x-offset
- :type unsigned-int)
- (y-offset
- :allocation :alien
- :accessor layout-y-offset
- :initarg :y-offset
- :type unsigned-int))
- (:metaclass container-class)
- (:alien-name "GtkLayout"))
-
-(defclass layout-child (container-child)
- ()
- (:metaclass child-class))
-
-
-; (defclass list-widget container
-; :c-name "GtkList"
-; :slots
-; ((selection-mode :read-method :arg :accessor list-selection-mode
-; :c-writer "gtk_list_set_selection_mode"
-; :type selection-mode)))
-
-
-(defclass menu-shell (container)
- ()
- (:metaclass container-class)
- (:alien-name "GtkMenuShell"))
-
-(defclass menu-shell-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(defclass menu-bar (menu-shell)
- ((shadow-type
- :allocation :param
- :location "GtkMenuBar::shadow"
- :accessor menu-bar-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass container-class)
- (:alien-name "GtkMenuBar"))
-
-(defclass menu-bar-child (menu-shell-child)
- ()
- (:metaclass child-class))
-
-
-(defclass menu (menu-shell)
- ((accel-group
- :allocation :virtual
- :location ("gtk_menu_get_accel_group" "gtk_menu_set_accel_group")
- :accessor menu-accel-group
- :initarg :accel-group
- :type accel-group)
- (tornoff
- :allocation :virtual
- :location ("gtk_menu_get_tearoff_state" "gtk_menu_set_tearoff_state")
- :accessor menu-tornoff-p
- :initarg :tearoff
- :type boolean)
- (title
- :allocation :virtual
- :location ("gtk_menu_get_title" "gtk_menu_set_title")
- :accessor menu-title
- :initarg :title
- :type string))
- (:metaclass container-class)
- (:alien-name "GtkMenu"))
-
-(defclass menu-child (menu-shell-child)
- ()
- (:metaclass child-class))
-
-
-(defclass packer (container)
- ((spacing
- :allocation :param
- :accessor packer-spacing
- :initarg :spacing
- :type unsigned-int)
- (default-border-width
- :allocation :param
- :accessor packer-default-border-width
- :initarg :default-border-width
- :type unsigned-int)
- (default-pad-x
- :allocation :param
- :accessor packer-default-pad-x
- :initarg :default-pad-x
- :type unsigned-int)
- (default-pad-y
- :allocation :param
- :accessor packer-default-pad-y
- :initarg :default-pad-y
- :type unsigned-int)
- (default-ipad-x
- :allocation :param
- :accessor packer-default-ipad-x
- :initarg :default-ipad-x
- :type unsigned-int)
- (default-ipad-y
- :allocation :param
- :accessor packer-default-ipad-y
- :initarg :default-ipad-y
- :type unsigned-int))
- (:metaclass container-class)
- (:alien-name "GtkPacker"))
-
-(defclass packer-child (container-child)
- ((side
- :allocation :arg
- :accessor packer-child-side
- :initarg :side
- :type side-type)
- (anchor
- :allocation :arg
- :accessor packer-child-anchor
- :initarg :anchor
- :type anchor-type)
- (expand
- :allocation :arg
- :accessor packer-child-expand-p
- :initarg :expand
- :type boolean)
- (fill-x
- :allocation :arg
- :accessor packer-child-fill-x-p
- :initarg :fill-x
- :type boolean)
- (fill-y
- :allocation :arg
- :accessor packer-child-fill-y-p
- :initarg :fill-y
- :type boolean)
- (use-default
- :allocation :arg
- :accessor packer-child-use-default
- :initarg :default
- :type boolean)
- (border-width
- :allocation :arg
- :accessor packer-child-border-width
- :initarg :default
- :type unsigned-int)
- (pad-x
- :allocation :arg
- :accessor packer-child-pad-x
- :initarg :pad-x
- :type unsigned-int)
- (pad-y
- :allocation :arg
- :accessor packer-child-pad-y
- :initarg :pad-y
- :type unsigned-int)
- (ipad-x
- :allocation :arg
- :accessor packer-child-ipad-x
- :initarg :ipad-x
- :type unsigned-int)
- (ipad-y
- :allocation :arg
- :accessor packer-child-ipad-y
- :initarg :ipad-y
- :type unsigned-int)
- (position
- :allocation :arg
- :accessor packer-child-position
- :initarg :iposition
- :type long))
- (:metaclass child-class))
-
-
-;(defclass socket (container))
-
-
-(defclass table (container)
- ((rows
- :allocation :param
- :location "GtkTable::n_rows"
- :accessor table-rows
- :initarg :rows
- :type unsigned-int)
- (columns
- :allocation :param
- :location "GtkTable::n_columns"
- :accessor table-columns
- :initarg :columns
- :type unsigned-int)
- (row-spacing
- :allocation :param
- :accessor table-default-row-spacing
- :initarg :row-spacing
- :type unsigned-int)
- (column-spacing
- :allocation :param
- :accessor table-default-column-spacing
- :initarg :column-spacing
- :type unsigned-int)
- (homogeneous
- :allocation :param
- :accessor table-homogeneous-p
- :initarg :homogeneous
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkTable"))
-
-(defclass table-child (container-child)
- ((left-attach
- :allocation :arg
- :accessor table-child-left-attach
- :initarg :left-attach
- :type unsigned-int)
- (right-attach
- :allocation :arg
- :accessor table-child-right-attach
- :initarg :right-attach
- :type unsigned-int)
- (top-attach
- :allocation :arg
- :accessor table-child-top-attach
- :initarg :top-attach
- :type unsigned-int)
- (bottom-attach
- :allocation :arg
- :accessor table-child-bottom-attach
- :initarg :bottom-attach
- :type unsigned-int)
- (x-options
- :allocation :arg
- :accessor table-child-x-options
- :initarg :x-options
- :type attach-options)
- (y-options
- :allocation :arg
- :accessor table-child-y-options
- :initarg :y-options
- :type attach-options)
- (x-padding
- :allocation :arg
- :accessor table-child-x-padding
- :initarg :x-padding
- :type unsigned-int)
- (y-padding
- :allocation :arg
- :accessor table-child-y-padding
- :initarg :y-padding
- :type unsigned-int)
-
- (x-expand
- :allocation :virtual
- :location table-child-x-expand-p
- :initarg :x-expand
- :type boolean)
- (y-expand
- :allocation :virtual
- :location table-child-y-expand-p
- :initarg :y-expand
- :type boolean)
- (x-shrink
- :allocation :virtual
- :location table-child-x-shrink-p
- :initarg :x-shrink
- :type boolean)
- (y-shrink
- :allocation :virtual
- :location table-child-y-shrink-p
- :initarg :y-shrink
- :type boolean)
- (x-fill
- :allocation :virtual
- :location table-child-x-fill-p
- :initarg :x-fill
- :type boolean)
- (y-fill
- :allocation :virtual
- :location table-child-y-fill-p
- :initarg :y-fill
- :type boolean))
- (:metaclass child-class))
-
-
-(defclass toolbar (container)
- ((orientation
- :allocation :param
- :accessor toolbar-orientation
- :initarg :orientation
- :type orientation)
- (toolbar-style
- :allocation :param
- :accessor toolbar-style
- :initarg :toolbar-style
- :type toolbar-style)
- (space-size
- :allocation :param
- :accessor toolbar-space-size
- :initarg :space-size
- :type unsigned-int)
- (space-style
- :allocation :param
- :accessor toolbar-space-style
- :initarg :space-style
- :type toolbar-space-style)
- (relief
- :allocation :param
- :accessor toolbar-relief
- :initarg :relief
- :type relief-style)
- (tooltips
- :allocation :virtual
- :location ("gtk_toolbar_get_tooltips" "gtk_toolbar_set_tooltips")
- :accessor toolbar-tooltips-p
- :initarg :tooltips
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkToolbar"))
-
-(defclass toolbar-child (container-child)
- ()
- (:metaclass child-class))
-
-
-;; Deprecated
-(defclass tree (container)
- ()
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((selection-mode :type selection-mode)
-; (view-mode :type tree-view-mode)
-; (view-lines :type boolean)
-; (root-tree :read-only t :type tree)))
- (:metaclass container-class)
- (:alien-name "GtkTree"))
-