-(defclass box (container)
- ((spacing
- :allocation :arg
- :accessor box-spacing
- :initarg :spacing
- :type int)
- (homogeneous
- :allocation :arg
- :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 :arg
- :accessor notebook-tab-pos
- :initarg :tab-pos
- :type position-type)
- (show-tabs
- :allocation :arg
- :accessor notebook-show-tabs-p
- :initarg :show-tabs
- :type boolean)
- (show-border
- :allocation :arg
- :accessor notebook-show-border-p
- :initarg :show-border
- :type boolean)
- (scrollable
- :allocation :arg
- :accessor notebook-scrollable-p
- :initarg :scrollable
- :type boolean)
- (tab-border
- :allocation :arg
- :accessor notebook-tab-border
- :initarg :tab-border
- :type unsigned-int)
- (tab-hborder
- :allocation :arg
- :accessor notebook-tab-hborder
- :initarg :tab-hborder
- :type unsigned-int)
- (tab-vborder
- :allocation :arg
- :accessor notebook-tab-vborder
- :initarg :tab-vborder
- :type unsigned-int)
- (page
- :allocation :arg
- :accessor notebook-page
- :initarg :page
- :type int)
- (enable-popup
- :allocation :arg
- :accessor notebook-enable-popup-p
- :initarg :enable-popup
- :type boolean)
- (homogeneous
- :allocation :arg
- :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 :arg
- :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