- (state
- :allocation :virtual
- :location ("gtk_widget_get_state" "gtk_widget_set_state")
- :accessor widget-state
- :initarg :state
- :type state-type)
- (window
- :allocation :virtual
- :location "gtk_widget_get_window"
- :reader widget-window
- :type gdk:window)
- (colormap
- :allocation :virtual
- :location "gtk_widget_get_colormap"
- :reader widget-colormap
- :type gdk:colormap)
- (visual
- :allocation :virtual
- :location "gtk_widget_get_visual"
- :reader widget-visual
- :type gdk:visual))
- (:metaclass object-class)
- (:alien-name "GtkWidget"))
-
-
-
-(defclass accel-label (label)
- (width
- :allocation :virtual
- :location "gtk_accel_label_get_accel_width"
- :reader width
- :type unsigned-int))
- (:metaclass widget-class)
- (:alien-name "GtkAccelLabel"))
-
-
-(defclass container (widget)
- (children
- :allocation :virtual
- :location container-children)
- (focus-child
- :allocation :virtual
- :location ("gtk_container_get_focus_child" "gtk_container_set_focus_child")
- :accessor container-focus-child
- :initarg :focus-child
- :type widget)
- (focus-hadjustment
- :allocation :virtual
- :location (nil "gtk_container_set_focus_hadjustment")
- :writer (setf container-focus-hadjustment)
- :initarg :focus-hadjustment
- :type adjustment)
- (focus-vadjustment
- :allocation :virtual
- :location (nil "gtk_container_set_focus_vadjustment")
- :writer (setf container-focus-vadjustment)
- :initarg :focus-vadjustment
- :type adjustment))
- (:metaclass widget-class)
- (:alien-name "GtkContainer"))
-
-
-
-(defclass bin (container)
- ((child
- :allocation :virtual
- :location bin-child
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkBin"))
-
-
-
-(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 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 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 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 dialog (window)
- ((main-box
- :allocation :alien
- :reader dialog-main-box
- :type widget)
- (action-area
- :allocation :alien
- :reader dialog-action-area
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkDialog"))
-
-
-(defclass color-selection-dialog (dialog)
- ((colorsel
- :allocation :alien
- :reader color-selection-dialog-colorsel
- :type widget)
- (ok-button
- :allocation :alien
- :reader color-selection-dialog-ok-button
- :type widget)
- (cancel-button
- :allocation :alien
- :reader color-selection-dialog-cancel-button
- :type widget)
- (help-button
- :allocation :alien
- :reader color-selection-dialog-help-button
- :type widget))
- (:metaclass container-class)
- (:alien-name "GtkColorSelectionDialog"))
-
-
-(defclass file-selection (window)
- ((filename
- :allocation :virtual
- :location ("gtk_file_selection_get_filename"
- "gtk_file_selection_set_filename")
- :accessor file-selection-filename
- :initarg :filename
- :type string)
- (action-area