- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkFileSelection"))
-
-
-(defclass scrolled-window (bin)
- (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 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 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 paned (container)
- (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 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 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 table-child (container-child)
- (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)
- (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 combo (hbox)
- ((entry
- :allocation :virtual
- :location "gtk_combo_get_entry"
- :reader combo-entry
- :type entry))
- (:metaclass widget-class)
- (:alien-name "GtkCombo"))
-
-
-(defclass ruler (widget)
- (metric
- :allocation :virtual
- :location (nil "gtk_ruler_set_metric")
- :accessor ruler-metric
- :initarg :metric
- :type metric-type))
- (:metaclass widget-class)
- (:alien-name "GtkRuler"))
-
-(defclass scale (range)
- (value-width
- :allocation :virtual
- :location "gtk_scale_get_value_width"
- :reader ruler-value-width
- :type int))
- (:metaclass widget-class)
- (:alien-name "GtkScale"))
-
-