-(defclass bin-child (container-child))
-
-
-(defclass alignment (bin)
- ((xalign
- :allocation :param
- :accessor alignment-xalign
- :initarg :xalign
- :type single-float)
- (yalign
- :allocation :param
- :accessor alignment-yalign
- :initarg :yalign
- :type single-float)
- (xscale
- :allocation :param
- :accessor alignment-xscale
- :initarg :xscale
- :type single-float)
- (yscale
- :allocation :param
- :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 :param
- :accessor frame-label-xalign
- :initarg :label-xalign
- :type single-float)
- (label-yalign
- :allocation :param
- :accessor frame-label-yalign
- :initarg :label-yalign
- :type single-float)
- (shadow-type
- :allocation :param
- :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 :param
-; :accessor aspect-frame-xalign
-; :initarg :xalign
-; :type single-float)
-; (yalign
-; :allocation :param
-; :accessor aspect-frame-yalign
-; :initarg :yalign
-; :type single-float)
-; (ratio
-; :allocation :param
-; :accessor aspect-frame-ratio
-; :initarg :ratio
-; :type single-float)
-; (obey-child
-; :allocation :param
-; :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 :param
- :initarg :label
- :type string)
- (relief
- :allocation :param
- :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 :param
- :accessor toggle-button-active-p
- :initarg :active
- :type boolean)
- (draw-indicator
- :allocation :param
- :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))
-
-
-(defclass radio-button (check-button)
- ((group
- :allocation :virtual
- :location ("gtk_radio_button_group")
- :reader radio-button-group
- :type (static (gslist widget))))
- (:metaclass container-class)
- (:alien-name "GtkRadioButton"))
-
-(defclass radio-button-child (check-button-child)
- ()
- (:metaclass child-class))
-
-
-(defclass option-menu (button)
- ((menu
- :allocation :virtual
- :location ("gtk_option_menu_get_menu" (setf option-menu-menu))
- :reader option-menu-menu
- :initarg :menu
- :type widget)
- (history
- :allocation :virtual
- :location (nil "gtk_option_menu_set_history")
- :writer (setf option-menu-history)
- :initarg :history
- :type unsigned-int))
- (:metaclass container-class)
- (:alien-name "GtkOptionMenu"))
-
-(defclass option-menu-child (button-child)
- ()
- (:metaclass child-class))
-
-
-(defclass item (bin)
- ()
- (:metaclass container-class)
- (:alien-name "GtkItem"))
-
-(defclass item-child (bin-child)
- ()
- (:metaclass child-class))
-
-;; Forward declaration
-(defclass menu-item (item)
- ()
- (:metaclass container-class)
- (:alien-name "GtkMenuItem"))
-
-(defclass menu-item (item)
- ((label
- :allocation :virtual
- :location menu-item-label
- :initarg :label
- :type string)
- (submenu
- :allocation :virtual
- :location ("gtk_menu_item_get_submenu" (setf menu-item-submenu))
- :reader menu-item-submenu
- :initarg :submenu
- :type menu-item)
- (placement
- :allocation :virtual
- :location ("gtk_menu_item_get_placement" "gtk_menu_item_set_placement")
- :accessor menu-item-placement
- :initarg :placement
- :type submenu-placement)
- (toggle-indicator
- :allocation :virtual
- :location ("gtk_menu_item_get_show_toggle"
- (setf menu-item-toggle-indicator-p))
- :reader menu-item-toggle-indicator-p
- :initarg :toggle-indicator
- :type boolean)
- (submenu-indicator
- :allocation :virtual
- :location ("gtk_menu_item_get_show_submenu"
- (setf menu-item-submenu-indicator-p))
- :reader menu-item-submenu-indicator-p
- :initarg :submenu-indicator
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkMenuItem"))
-
-(defclass menu-item-child (item-child)
- ()
- (:metaclass child-class))
-
-
-(defclass check-menu-item (menu-item)
- ((active
- :allocation :virtual
- :location ("gtk_check_menu_item_get_active"
- "gtk_check_menu_item_set_active")
- :accessor check-menu-item-active-p
- :initarg :active
- :type boolean)
- (toggle-indicator
- :allocation :virtual
- :location ("gtk_check_menu_item_get_show_toggle"
- "gtk_check_menu_item_set_show_toggle")
- :accessor check-menu-item-toggle-indicator-p
- :initarg :toggle-indicator
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkCheckMenuItem"))
-
-(defclass check-menu-item-child (menu-item-child)
- ()
- (:metaclass child-class))
-
-
-(defclass radio-menu-item (check-menu-item)
- ((group
- :allocation :virtual
- :location ("gtk_radio_menu_item_group")
- :reader radio-menu-item-group
- :type (static (gslist widget))))
- (:metaclass container-class)
- (:alien-name "GtkRadioMenuItem"))
-
-(defclass radio-menu-item-child (check-menu-item-child)
- ()
- (:metaclass child-class))
-
-
-(defclass tearoff-menu-item (menu-item)
- ()
- (:metaclass container-class)
- (:alien-name "GtkTearoffMenuItem"))
-
-(defclass tearoff-menu-item-child (menu-item-child)
- ()
- (:metaclass child-class))
-
-
-(defclass list-item (item)
- ()
- (:metaclass container-class)
- (:alien-name "GtkListItem"))
-
-(defclass list-item-child (item-child)
- ()
- (:metaclass child-class))
-
-
-;; deprecated
-(defclass tree-item (item)
- ()
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((subtree :write-method :lisp :type tree-item)))
- (:metaclass container-class)
- (:alien-name "GtkTreeItem"))
-
-(defclass tree-item-child (item-child)
- ()
- (:metaclass child-class))
-
-
-(defclass window (bin)
- ((type
- :allocation :param
- :accessor window-type
- :initarg :type
- :type window-type)
- (title
- :allocation :param
- :accessor window-title
- :initarg :title
- :type string)
- (auto-shrink
- :allocation :param
- :accessor window-auto-shrink-p
- :initarg :auto-shrink
- :type boolean)
- (allow-shrink
- :allocation :param
- :accessor window-allow-shrink-p
- :initarg :allow-shrink
- :type boolean)
- (allow-grow
- :allocation :param
- :accessor window-allow-grow-p
- :initarg :allow-grow
- :type boolean)
- (modal
- :allocation :param
- :accessor window-modal-p
- :initarg :modal
- :type boolean)
- (position
- :allocation :param
- :location "GtkWindow::window_position"
- :accessor window-position
- :initarg :position
- :type window-position)
- (default-width
- :allocation :param
- :accessor window-default-width
- :initarg :default-width