- (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" "gtk_radio_menu_item_set_group")
- :accessor radio-menu-item-group
- :type radio-menu-item-group))
- (: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 :arg
- :accessor window-type
- :initarg :type
- :type window-type)
- (title
- :allocation :arg
- :accessor window-title
- :initarg :title
- :type string)
- (auto-shrink
- :allocation :arg
- :accessor window-auto-shrink-p
- :initarg :auto-shrink
- :type boolean)
- (allow-shrink
- :allocation :arg
- :accessor window-allow-shrink-p
- :initarg :allow-shrink
- :type boolean)
- (allow-grow
- :allocation :arg
- :accessor window-allow-grow-p
- :initarg :allow-grow
- :type boolean)
- (modal
- :allocation :arg
- :accessor window-modal-p
- :initarg :modal
- :type boolean)
- (position
- :allocation :arg
- :location "GtkWindow::window_position"
- :accessor window-position
- :initarg :position
- :type window-position)
- (default-width
- :allocation :arg
- :accessor window-default-width
- :initarg :default-width
- :type int)
- (default-height
- :allocation :arg
- :accessor window-default-height
- :initarg :default-height
- :type int))
- (:metaclass container-class)
- (:alien-name "GtkWindow"))
-
-(defclass window-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-; (defclass color-selection-dialog window
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((colorsel :read-only t :type widget)
-; (main-vbox :read-only t :type widget)
-; (ok-button :read-only t :type widget)
-; (reset-button :read-only t :type widget)
-; (cancel-button :read-only t :type widget)
-; (help-button :read-only t :type widget)))
-
-(defclass dialog (window)
- ((action-area
- :allocation :virtual
- :location "gtk_dialog_get_action_area"
- :reader dialog-action-area
- :type widget)
- (box
- :allocation :virtual
- :location "gtk_dialog_get_vbox"
- :reader dialog-box
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkDialog"))
-
-(defclass dialog-child (window-child)
- ()
- (:metaclass child-class))
-
-
-(defclass input-dialog (dialog)
- ()
- (:metaclass container-class)
- (:alien-name "GtkInputDialog"))
-
-(defclass input-dialog-child (dialog-child)
- ()
- (:metaclass child-class))
-
-
-; (defclass file-selection window
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((filename :type string)
-; (action-area :read-only t :type widget)
-; (ok-button :read-only t :type widget)
-; (cancel-button :read-only t :type widget)))
-
-; (defclass plug window)
-
-
-(defclass event-box (bin)
- ()
- (:metaclass container-class)
- (:alien-name "GtkEventBox"))
-
-(defclass event-box-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass handle-box (bin)
- ((shadow-type
- :allocation :arg
- :location "GtkHandleBox::shadow"
- :accessor handle-box-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (handle-position
- :allocation :arg
- :accessor handle-box-handle-position
- :initarg :handle-position
- :type position-type)
- (snap-edge
- :allocation :arg
- :accessor handle-box-snap-edge
- :initarg :snap-edge
- :type position-type))
- (:metaclass container-class)
- (:alien-name "GtkHandleBox"))
-
-(defclass handle-box-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass scrolled-window (bin)
- ((hadjustment
- :allocation :arg
- :accessor scrolled-window-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :arg
- :accessor scrolled-window-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (hscrollbar-policy
- :allocation :arg
- :accessor scrolled-window-hscrollbar-policy
- :initarg :hscrollbar-policy
- :type policy-type)
- (vscrollbar-policy
- :allocation :arg
- :accessor scrolled-window-vscrollbar-policy
- :initarg :vscrollbar-policy
- :type policy-type)
- (placement
- :allocation :arg
- :location "GtkScrolledWindow::window_placement"
- :accessor scrolled-window-placement
- :initarg :placement
- :type corner-type)
- (shadow-type
- :allocation :arg
- :location "GtkScrolledWindow::shadow"
- :accessor scrolled-window-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (hscrollbar
- :allocation :virtual
- :location "gtk_scrolled_window_get_hscrollbar"
- :accessor scrolled-window-hscrollbar
- :type widget)
- (vscrollbar
- :allocation :virtual
- :location "gtk_scrolled_window_get_vscrollbar"
- :accessor scrolled-window-vscrollbar
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkScrolledWindow"))
-
-(defclass scrolled-window-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass viewport (bin)
- ((hadjustment
- :allocation :arg
- :accessor viewport-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :arg
- :accessor viewport-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (shadow-type
- :allocation :arg
- :accessor viewport-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass container-class)
- (:alien-name "GtkViewport"))
-
-(defclass viewport-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(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
- :type int)
- (layout
- :allocation :virtual
- :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 (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
- :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