-(defclass bin-child (container-child))
-
-
-(defclass alignment (bin)
- ((xalign
- :allocation :arg
- :accessor alignment-xalign
- :initarg :xalign
- :type single-float)
- (yalign
- :allocation :arg
- :accessor alignment-yalign
- :initarg :yalign
- :type single-float)
- (xscale
- :allocation :arg
- :accessor alignment-xscale
- :initarg :xscale
- :type single-float)
- (yscale
- :allocation :arg
- :accessor alignment-yscale
- :initarg :yscale
- :type single-float))
- (:metaclass container-class)
- (:alien-name "GtkAlignment"))
-
-(defclass alignment-child (bin-child))
-
-
-(defclass frame (bin)
- ((label
- :allocation :virtual
- :location ("gtk_frame_get_label" "gtk_frame_set_label")
- :accessor frame-label
- :initarg :label
- :type string)
- (label-xalign
- :allocation :arg
- :accessor frame-label-xalign
- :initarg :label-xalign
- :type single-float)
- (label-yalign
- :allocation :arg
- :accessor frame-label-yalign
- :initarg :label-yalign
- :type single-float)
- (shadow-type
- :allocation :arg
- :location "GtkFrame::shadow"
- :accessor frame-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass container-class)
- (:alien-name "GtkFrame"))
-
-(defclass frame-child (bin-child))
-
-
-; (defclass aspect-frame (frame)
-; ((xalign
-; :allocation :arg
-; :accessor aspect-frame-xalign
-; :initarg :xalign
-; :type single-float)
-; (yalign
-; :allocation :arg
-; :accessor aspect-frame-yalign
-; :initarg :yalign
-; :type single-float)
-; (ratio
-; :allocation :arg
-; :accessor aspect-frame-ratio
-; :initarg :ratio
-; :type single-float)
-; (obey-child
-; :allocation :arg
-; :accessor aspect-frame-obey-child-p
-; :initarg :obey-child
-; :type boolean))
-; (:metaclass container-class)
-; (:alien-name "GtkAspectFrame"))
-
-; (defclass aspect-frame-child (aspect-child))
-
-
-(defclass button (bin)
- ((label
- :allocation :virtual
- :location button-label
- :initarg :label
- :type string)
- (relief
- :allocation :arg
- :accessor button-relief
- :initarg :relief
- :type relief-style))
- (:metaclass container-class)
- (:alien-name "GtkButton"))
-
-(defclass button-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass toggle-button (button)
- ((active
- :allocation :arg
- :accessor toggle-button-active-p
- :initarg :active
- :type boolean)
- (draw-indicator
- :allocation :arg
- :accessor toggle-button-draw-indicator-p
- :initarg :draw-indicator
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkToggleButton"))
-
-(defclass toggle-button-child (button-child)
- ()
- (:metaclass child-class))
-
-
-(defclass check-button (toggle-button)
- ()
- (:metaclass container-class)
- (:alien-name "GtkCheckButton"))
-
-(defclass check-button-child (toggle-button-child)
- ()
- (:metaclass child-class))