- :location ("gtk_button_box_get_layout" "gtk_button_box_set_layout")
- :accessor button-box-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-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)
-
-; (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)
-
-; (defclass notebook container
-; :slots
-; ((show-tabs :read-method :arg :type boolean)
-; (show-border :read-method :arg :type boolean)
-; (scrollable :read-method :arg :type boolean)
-; (enable-popup :access-method :arg :type boolean)
-; (homogeneous :c-writer "gtk_notebook_set_homogeneous_tabs"
-; :read-method :arg :type boolean)
-; (current-page :c-writer "gtk_notebook_set_page" :type int)
-; (tab-pos :read-method :arg :type position-type)
-; (tab-border :read-method :arg :type unsigned-int)
-; (tab-hborder :read-method :arg :type unsigned-int)
-; (tab-vborder :read-method :arg :type unsigned-int))
-; :child-slots
-; ((tab-label :access-method :arg :type string)
-; (menu-label :access-method :arg :type string)
-; (tab-fill :access-method :arg :type boolean)
-; (tab-pack :access-method :arg :type boolean)
-; (position :access-method :arg :type int)))
-
-; (defclass font-selection notebook)
-
-; (defclass paned container
-; :constructor nil
-; :slots
-; ((handle-size :read-method :arg :type unsigned-int)
-; (gutter-size :read-method :arg :type unsigned-int)
-; ;; slots not accessible through the arg mechanism
-; (position :write-only t :type int)))
-
-; (defclass hpaned paned)
-
-; (defclass vpaned paned)
-
-; (defclass layout container
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((hadjustment :type adjustment)
-; (vadjustment :type adjustment)
-; (bin-window :read-only t :type gdk:window)))
-
-; (defclass list-widget container
-; :c-name "GtkList"
-; :slots
-; ((selection-mode :read-method :arg :accessor list-selection-mode
-; :c-writer "gtk_list_set_selection_mode"
-; :type selection-mode)))
-
-; (defclass menu-shell container :constructor nil)
-
-; (defclass menu-bar menu-shell
-; :slots
-; ((shadow-type :read-method :arg :arg-name "shadow"
-; :type shadow-type)))
-
-; (defclass menu menu-shell
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((accel-group :type accel-group)
-; (tearoff-state :write-only t :type boolean)
-; (title :write-only t :type string)))
-
-; (defclass packer container
-; :slots
-; ((spacing :read-method :arg :type unsigned-int)
-; (default-border-width :read-method :arg :type unsigned-int)
-; (default-pad-x :access-method :arg :type unsigned-int)
-; (default-pad-y :access-method :arg :type unsigned-int)
-; (default-ipad-x :access-method :arg :type unsigned-int)
-; (default-ipad-y :access-method :arg :type unsigned-int))
-; :child-slots
-; ((side :access-method :arg :type side-type)
-; (anchor :access-method :arg :type anchor-type)
-; (expand :access-method :arg :type boolean)
-; (fill-x :access-method :arg :type boolean)
-; (fill-y :access-method :arg :type boolean)
-; (use-default :access-method :arg :type boolean)
-; (border-width :access-method :arg :type unsigned-int)
-; (pad-x :access-method :arg :type unsigned-int)
-; (pad-y :access-method :arg :type unsigned-int)
-; (ipad-x :access-method :arg :type unsigned-int)
-; (ipad-y :access-method :arg :type unsigned-int)
-; (position :access-method :arg :type long)))
-
-; (defclass socket container)
-
-; (defclass table container
-; :slots
-; ((rows :access-method :arg :arg-name "n_rows"
-; :type unsigned-int)
-; (columns :access-method :arg :arg-name "n_columns"
-; :type unsigned-int)
-; (row-spacing :c-writer "gtk_table_set_row_spacings"
-; :accessor table-row-spacings
-; :read-method :arg :type unsigned-int)
-; (column-spacing :c-writer "gtk_table_set_col_spacings"
-; :accessor table-column-spacings
-; :read-method :arg :type unsigned-int)
-; (homogeneous :read-method :arg :type boolean))
-; :child-slots
-; ((left-attach :access-method :arg :type unsigned-int)
-; (right-attach :access-method :arg :type unsigned-int)
-; (top-attach :access-method :arg :type unsigned-int)
-; (bottom-attach :access-method :arg :type unsigned-int)
-; (x-options :access-method :arg :type attach-options)
-; (y-options :access-method :arg :type attach-options)
-; (x-padding :access-method :arg :type unsigned-int)
-; (y-padding :access-method :arg :type unsigned-int)
-; ;; Slots added for convenience sake
-; (x-expand :access-method :lisp :type boolean)
-; (y-expand :access-method :lisp :type boolean)
-; (x-shrink :access-method :lisp :type boolean)
-; (y-shrink :access-method :lisp :type boolean)
-; (x-fill :access-method :lisp :type boolean)
-; (y-fill :access-method :lisp :type boolean)))
-
-; (defclass toolbar container
-; :slots
-; ((orientation :read-method :arg :type orientation)
-; (toolbar-style :accessor toolbar-style
-; :c-writer "gtk_toolbar_set_style"
-; :read-method :arg :type toolbar-style)
-; (space-size :read-method :arg :type unsigned-int)
-; (space-style :read-method :arg :type toolbar-space-style)
-; (relief :c-writer "gtk_toolbar_set_button_relief"
-; :read-method :arg :type relief-style)
-; ;; slots not accessible through the arg mechanism
-; (tooltips :write-only t :type boolean)))
-
-(defclass tree (container)
- ()
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((selection-mode :type selection-mode)
-; (view-mode :type tree-view-mode)
-; (view-lines :type boolean)
-; (root-tree :read-only t :type tree)))
- (:metaclass container-class)
- (:alien-name "GtkTree"))
-
-
-(defclass calendar (widget)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkCalendar"))
-
-
-; (defclass drawing-area widget)
-
-; (defclass curve drawing-area
-; :slots
-; ((curve-type :read-method :arg :type curve-type)
-; (min-x :access-method :arg :type single-float)
-; (max-x :access-method :arg :type single-float)
-; (min-y :access-method :arg :type single-float)
-; (max-y :access-method :arg :type single-float)))
-
-; (defclass editable widget
-; :slots
-; ((position :type int)
-; (editable :read-method :arg :type boolean)
-; ;; slots not accessible through the arg mechanism
-; (text :access-method :lisp :type string)))
-
-; (defclass entry editable
-; :slots
-; ((max-length :read-method :arg :type unsigned-int)
-; (visibility :read-method :arg :accessor entry-visible-p
-; :type boolean)
-; ;; slots not accessible through the arg mechanism
-; (text :type string)))
-
-; (defclass combo hbox
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((entry :read-only t :type entry)
-; (use-arrows :type boolean)
-; (use-arrows-always :type boolean)
-; (case-sensitive :type boolean)))
-
-; (defclass spin-button entry
-; :slots
-; ((adjustment :access-method :arg :type adjustment)
-; (climb-rate :access-method :arg :type single-float)
-; (digits :access-method :arg :type unsigned-int)
-; (snap-to-ticks :read-method :arg :type boolean)
-; (numeric :read-method :arg :type boolean)
-; (wrap :read-method :arg :type boolean)
-; (update-policy :read-method :arg :type spin-button-update-policy)
-; (shadow-type :read-method :arg :type shadow-type)
-; (value :read-method :arg :type single-float)))
-
-; (defclass text editable
-; :slots
-; ((hadjustment :access-method :arg :type adjustment)
-; (vadjustment :access-method :arg :type adjustment)
-; (line-wrap :read-method :arg :type boolean)
-; (word-wrap :read-method :arg :type boolean)
-; ;; slots not accessible through the arg mechanism
-; (point :type unsigned-int)
-; (length :read-only t :type unsigned-int)))
-
-; (defclass ruler widget
-; :constructor nil
-; :slots
-; ((lower :access-method :arg :type single-float)
-; (upper :access-method :arg :type single-float)
-; (position :access-method :arg :type single-float)
-; (max-size :access-method :arg :type single-float)
-; ;; slots not accessible through the arg mechanism
-; (:metric :write-only t :type metric-type)))
-
-; (defclass hruler ruler)
-
-; (defclass vruler ruler)
-
-; (defclass range widget
-; :slots
-; ((update-policy :read-method :arg :type update-type)
-; ;; slots not accessible through the arg mechanism
-; (adjustment :type adjustment)))
-
-; (defclass scale range
-; :constructor nil
-; :slots
-; ((digits :read-method :arg :type unsigned-int)
-; (draw-value :read-method :arg :type boolean)
-; (value-pos :read-method :arg :type position-type)
-; ;; slots not accessible through the arg mechanism
-; (value-width :read-only t :type int)))
-
-; (defclass hscale scale)
-
-; (defclass vscale scale)
-
-; (defclass scrollbar range :constructor nil)
-
-; (defclass hscrollbar scrollbar)
-
-; (defclass vscrollbar scrollbar)
-
-(defclass separator (widget)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkSeparator"))
-
-
-(defclass hseparator (separator)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkHSeparator"))
-