-(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
-; :slots
-; ((policy :c-writer "gtk_color_selection_set_update_policy"
-; :read-method :arg :type update-type)
-; (use-opacity :c-writer "gtk_color_selection_set_opacity"
-; :read-method :arg :type boolean)
-; ;; slots not accessible through the arg mechanism
-; (color :access-method :lisp)))
-
-; (defclass gamma-curve vbox)
-
-
-(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))
-
-;; CList and CTree is deprecated
-; (defclass clist container
-; :c-name "GtkCList"
-; :c-prefix "gtk_clist_"
-; :slots
-; ((n-columns :read-only t :initarg t :access-method :arg
-; :type unsigned-int)
-; (shadow-type :read-method :arg :type shadow-type)
-; (selection-mode :read-method :arg :type selection-mode)
-; (row-height :read-method :arg :type unsigned-int)
-; (reorderable :read-method :arg :type boolean)
-; (titles-visible :write-method :lisp :type boolean)
-; (titles-active :access-method :arg :type boolean)
-; (use-drag-icons :read-method :arg :type boolean)
-; (sort-type :read-method :arg :type sort-type)
-; ;; slots not accessible through the arg mechanism
-; (hadjustment :type adjustment)
-; (vadjustment :type adjustment)
-; (sort-column :type int)
-; (focus-row :reader %clist-focus-row :read-only t :type int)
-; (n-rows :read-only t :type int)))
-
-; (defclass ctree clist
-; :c-name "GtkCTree"
-; :c-prefix "gtk_ctree_"
-; :slots
-; ((n-columns :read-only t :initarg t :access-method :arg
-; :type unsigned-int)
-; (tree-column :read-only t :initarg t :access-method :arg
-; :type unsigned-int)
-; (indent :read-method :arg :type unsigned-int)
-; (spacing :read-method :arg :type unsigned-int)
-; (show-stub :read-method :arg :type boolean)
-; (line-style :read-method :arg :type ctree-line-style)
-; (expander-style :read-method :arg :type ctree-expander-style)))
-
-(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