- (:metaclass container-class)
- (:alien-name "GtkLayout"))
-
-(defclass layout-child (container-child)
- ()
- (:metaclass child-class))
-
-
-; (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)
- ()
- (:metaclass container-class)
- (:alien-name "GtkMenuShell"))
-
-(defclass menu-shell-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(defclass menu-bar (menu-shell)
- ((shadow-type
- :allocation :arg
- :location "GtkMenuBar::shadow"
- :accessor menu-bar-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass container-class)
- (:alien-name "GtkMenuBar"))
-
-(defclass menu-bar-child (menu-shell-child)
- ()
- (:metaclass child-class))
-
-
-(defclass menu (menu-shell)
- ((accel-group
- :allocation :virtual
- :location ("gtk_menu_get_accel_group" "gtk_menu_set_accel_group")
- :accessor menu-accel-group
- :initarg :accel-group
- :type accel-group)
- (tornoff
- :allocation :virtual
- :location ("gtk_menu_get_tearoff_state" "gtk_menu_set_tearoff_state")
- :accessor menu-tornoff-p
- :initarg :tearoff
- :type boolean)
- (title
- :allocation :virtual
- :location ("gtk_menu_get_title" "gtk_menu_set_title")
- :accessor menu-title
- :initarg :title
- :type string))
- (:metaclass container-class)
- (:alien-name "GtkMenu"))
-
-(defclass menu-child (menu-shell-child)
- ()
- (:metaclass child-class))
-
-
-(defclass packer (container)
- ((spacing
- :allocation :arg
- :accessor packer-spacing
- :initarg :spacing
- :type unsigned-int)
- (default-border-width
- :allocation :arg
- :accessor packer-default-border-width
- :initarg :default-border-width
- :type unsigned-int)
- (default-pad-x
- :allocation :arg
- :accessor packer-default-pad-x
- :initarg :default-pad-x
- :type unsigned-int)
- (default-pad-y
- :allocation :arg
- :accessor packer-default-pad-y
- :initarg :default-pad-y
- :type unsigned-int)
- (default-ipad-x
- :allocation :arg
- :accessor packer-default-ipad-x
- :initarg :default-ipad-x
- :type unsigned-int)
- (default-ipad-y
- :allocation :arg
- :accessor packer-default-ipad-y
- :initarg :default-ipad-y
- :type unsigned-int))
- (:metaclass container-class)
- (:alien-name "GtkPacker"))
-
-(defclass packer-child (container-child)
- ((side
- :allocation :arg
- :accessor packer-child-side
- :initarg :side
- :type side-type)
- (anchor
- :allocation :arg
- :accessor packer-child-anchor
- :initarg :anchor
- :type anchor-type)
- (expand
- :allocation :arg
- :accessor packer-child-expand-p
- :initarg :expand
- :type boolean)
- (fill-x
- :allocation :arg
- :accessor packer-child-fill-x-p
- :initarg :fill-x
- :type boolean)
- (fill-y
- :allocation :arg
- :accessor packer-child-fill-y-p
- :initarg :fill-y
- :type boolean)
- (use-default
- :allocation :arg
- :accessor packer-child-use-default
- :initarg :default
- :type boolean)
- (border-width
- :allocation :arg
- :accessor packer-child-border-width
- :initarg :default
- :type unsigned-int)
- (pad-x
- :allocation :arg
- :accessor packer-child-pad-x
- :initarg :pad-x
- :type unsigned-int)
- (pad-y
- :allocation :arg
- :accessor packer-child-pad-y
- :initarg :pad-y
- :type unsigned-int)
- (ipad-x
- :allocation :arg
- :accessor packer-child-ipad-x
- :initarg :ipad-x
- :type unsigned-int)
- (ipad-y
- :allocation :arg
- :accessor packer-child-ipad-y
- :initarg :ipad-y
- :type unsigned-int)
- (position
- :allocation :arg
- :accessor packer-child-position
- :initarg :iposition
- :type long))
- (:metaclass child-class))
-
-
-;(defclass socket (container))
-
-
-(defclass table (container)
- ((rows
- :allocation :arg
- :location "GtkTable::n_rows"
- :accessor table-rows
- :initarg :rows
- :type unsigned-int)
- (columns
- :allocation :arg
- :location "GtkTable::n_columns"
- :accessor table-columns
- :initarg :columns
- :type unsigned-int)
- (row-spacing
- :allocation :arg
- :accessor table-default-row-spacing
- :initarg :row-spacing
- :type unsigned-int)
- (column-spacing
- :allocation :arg
- :accessor table-default-column-spacing
- :initarg :column-spacing
- :type unsigned-int)
- (homogeneous
- :allocation :arg
- :accessor table-homogeneous-p
- :initarg :homogeneous
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkTable"))
-
-(defclass table-child (container-child)
- ((left-attach
- :allocation :arg
- :accessor table-child-left-attach
- :initarg :left-attach
- :type unsigned-int)
- (right-attach
- :allocation :arg
- :accessor table-child-right-attach
- :initarg :right-attach
- :type unsigned-int)
- (top-attach
- :allocation :arg
- :accessor table-child-top-attach
- :initarg :top-attach
- :type unsigned-int)
- (bottom-attach
- :allocation :arg
- :accessor table-child-bottom-attach
- :initarg :bottom-attach
- :type unsigned-int)
- (x-options
- :allocation :arg
- :accessor table-child-x-options
- :initarg :x-options
- :type attach-options)
- (y-options
- :allocation :arg
- :accessor table-child-y-options
- :initarg :y-options
- :type attach-options)
- (x-padding
- :allocation :arg
- :accessor table-child-x-padding
- :initarg :x-padding
- :type unsigned-int)
- (y-padding
- :allocation :arg
- :accessor table-child-y-padding
- :initarg :y-padding
- :type unsigned-int)
-
- (x-expand
- :allocation :virtual
- :location table-child-x-expand-p
- :initarg :x-expand
- :type boolean)
- (y-expand
- :allocation :virtual
- :location table-child-y-expand-p
- :initarg :y-expand
- :type boolean)
- (x-shrink
- :allocation :virtual
- :location table-child-x-shrink-p
- :initarg :x-shrink
- :type boolean)
- (y-shrink
- :allocation :virtual
- :location table-child-y-shrink-p
- :initarg :y-shrink
- :type boolean)
- (x-fill
- :allocation :virtual
- :location table-child-x-fill-p
- :initarg :x-fill
- :type boolean)
- (y-fill
- :allocation :virtual
- :location table-child-y-fill-p
- :initarg :y-fill
- :type boolean))
- (:metaclass child-class))
-
-
-(defclass toolbar (container)
- ((orientation
- :allocation :arg
- :accessor toolbar-orientation
- :initarg :orientation
- :type orientation)
- (toolbar-style
- :allocation :arg
- :accessor toolbar-style
- :initarg :toolbar-style
- :type toolbar-style)
- (space-size
- :allocation :arg
- :accessor toolbar-space-size
- :initarg :space-size
- :type unsigned-int)
- (space-style
- :allocation :arg
- :accessor toolbar-space-style
- :initarg :space-style
- :type toolbar-space-style)
- (relief
- :allocation :arg
- :accessor toolbar-relief
- :initarg :relief
- :type relief-style)
- (tooltips
- :allocation :virtual
- :location ("gtk_toolbar_get_tooltips" "gtk_toolbar_set_tooltips")
- :accessor toolbar-tooltips-p
- :initarg :tooltips
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkToolbar"))
-
-(defclass toolbar-child (container-child)
- ()
- (:metaclass child-class))
-
-
-;; Deprecated
-(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)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkDrawingArea"))
-
-; (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)
- ((position
- :allocation :arg
- :location "GtkEditable::text_position"
- :accessor ediatable-position
- :initarg :position
- :type int)
- (editable
- :allocation :arg
- :accessor editable-editable-p
- :initarg :editable
- :type boolean)
- (text
- :allocation :virtual
- :location editable-text
- :initarg :text
- :type string))
- (:metaclass widget-class)
- (:alien-name "GtkEditable"))
-
-
-(defclass entry (editable)
- ((max-length
- :allocation :arg
- :accessor entry-max-length
- :initarg :max-length
- :type unsigned-int)
- (visible
- :allocation :arg
- :location "GtkEntry::visibility"
- :accessor entry-visible-p
- :initarg :visible
- :type boolean))
- (:metaclass widget-class)
- (:alien-name "GtkEntry"))
-
-
-(defclass combo (hbox)
- ((entry
- :allocation :virtual
- :location "gtk_combo_get_entry"
- :reader combo-entry
- :type entry)
- (use-arrows
- :allocation :virtual
- :location ("gtk_combo_get_use_arrows" "gtk_combo_set_use_arrows")
- :accessor combo-use-arrows-p
- :initarg :use-arrows
- :type boolean)
- (use-arrows-always
- :allocation :virtual
- :location
- ("gtk_combo_get_use_arrows_always" "gtk_combo_set_use_arrows_always")
- :accessor combo-use-arrows-always-p
- :initarg :use-arrows-always
- :type boolean)
- (case-sensitive
- :allocation :virtual
- :location ("gtk_combo_get_case_sensitive" "gtk_combo_set_case_sensitive")
- :accessor combo-case-sensitive-p
- :initarg :case-sensitive
- :type boolean))
- (:metaclass widget-class)
- (:alien-name "GtkCombo"))
-
-
-(defclass spin-button (entry)
- ((adjustment
- :allocation :arg
- :accessor spin-button-adjustment
- :initarg :adjustment
- :type adjustment)
- (climb-rate
- :allocation :arg
- :accessor spin-button-climb-rate
- :initarg :climb-rate
- :type single-float)
- (digits
- :allocation :arg
- :accessor spin-button-digits
- :initarg :digits
- :type unsigned-int)
- (snap-to-ticks
- :allocation :arg
- :accessor spin-button-snap-to-ticks-p
- :initarg :snap-to-ticks
- :type boolean)
- (numeric
- :allocation :arg
- :accessor spin-button-numeric-p
- :initarg :numeric
- :type boolean)
- (wrap
- :allocation :arg
- :accessor spin-button-wrap-p
- :initarg :wrap
- :type boolean)
- (update-policy
- :allocation :arg
- :accessor spin-button-update-policy
- :initarg :update-policy
- :type spin-button-update-policy)
- (shadow-type
- :allocation :arg
- :accessor spin-button-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (value
- :allocation :arg
- :accessor spin-button-value
- :initarg :value
- :type single-float))
- (:metaclass widget-class)
- (:alien-name "GtkSpinButton"))
-
-
-;; Deprecated
-; (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)
- ((lower
- :allocation :arg
- :accessor ruler-lower
- :initarg :lower
- :type single-float)
- (upper
- :allocation :arg
- :accessor ruler-upper
- :initarg :upper
- :type single-float)
- (position
- :allocation :arg
- :accessor ruler-position
- :initarg :position
- :type single-float)
- (max-size
- :allocation :arg
- :accessor ruler-max-size
- :initarg :max-size
- :type single-float)
- (metric
- :allocation :virtual
- :location (nil "gtk_ruler_set_metric")
- :accessor ruler-metric
- :initarg :metric
- :type metric-type))
- (:metaclass widget-class)
- (:alien-name "GtkRuler"))
-
-
-(defclass hruler (ruler)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkHRuler"))
-
-
-(defclass vruler (ruler)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkVRuler"))
-
-
-(defclass range (widget)
- ((update-policy
- :allocation :arg
- :accessor range-update-policy
- :initarg :update-policy
- :type update-type)
- (adjustment
- :allocation :virtual
- :location ("gtk_range_get_adjustment" "gtk_range_set_adjustment")
- :accessor ruler-adjustment
- :initarg :adjustment
- :type adjustment))
- (:metaclass widget-class)
- (:alien-name "GtkRange"))
-
-
-(defclass scale (range)
- ((digits
- :allocation :arg
- :accessor scale-digits
- :initarg :digits
- :type int)
- (draw-value
- :allocation :arg
- :accessor scale-draw-value-p
- :initarg :draw-value
- :type boolean)
- (value-position
- :allocation :arg
- :location "GtkScale::value_pos"
- :accessor scale-value-position
- :initarg :value-position
- :type position-type)
- (value-width
- :allocation :virtual
- :location "gtk_scale_get_value_width"
- :reader ruler-value-width
- :type int))
- (:metaclass widget-class)
- (:alien-name "GtkScale"))
-
-
-(defclass hscale (scale)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkHScale"))
-
-
-(defclass vscale (scale)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkVScale"))
-
-
-(defclass scrollbar (range)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkScrollbar"))
-
-
-(defclass hscrollbar (scrollbar)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkHScrollbar"))
-
-
-(defclass vscrollbar (scrollbar)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkVScrollbar"))
-
-
-(defclass separator (widget)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkSeparator"))
-
-
-(defclass hseparator (separator)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkHSeparator"))
-
-
-(defclass vseparator (separator)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkVSeparator"))
-
-
-; (defclass preview widget
-; :slots
-; ((expand :read-method :arg :type boolean)))
-
-(defclass progress (widget)
- ((activity-mode
- :allocation :arg
- :accessor progress-activity-mode-p
- :initarg :activity-mode
- :type boolean)
- (show-text
- :allocation :arg
- :accessor progress-show-text-p
- :initarg :show-text
- :type boolean)
- (text-xalign
- :allocation :arg
- :accessor progress-text-xalign
- :initarg :text-xalign
- :type single-float)
- (text-yalign
- :allocation :arg
- :accessor progress-text-yalign
- :initarg :text-yalign
- :type single-float)
- (format-string
- :allocation :virtual
- :location ("gtk_progress_get_format_string"
- "gtk_progress_set_format_string")
- :accessor progress-format-string
- :initarg :format-string
- :type string)
- (adjustment
- :allocation :virtual
- :location ("gtk_progress_get_adjustment"
- "gtk_progress_set_adjustment")
- :accessor progress-adjustment
- :initarg :adjustment
- :type adjustment)
- (percentage
- :allocation :virtual
- :location ("gtk_progress_get_current_percentage"
- "gtk_progress_set_percentage")
- :accessor progress-percentage
- :initarg :percentage
- :type single-float)
- (value
- :allocation :virtual
- :location ("gtk_progress_get_value" "gtk_progress_set_value")
- :accessor progress-value
- :initarg :value
- :type single-float)
- (text
- :allocation :virtual
- :location ("gtk_progress_get_current_text")
- :reader progress-text
- :type string))
- (:metaclass widget-class)
- (:alien-name "GtkProgress"))
-
-
-(defclass progress-bar (progress)
- ((orientation
- :allocation :arg
- :accessor progress-bar-orientation
- :initarg :orientation
- :type progress-bar-orientation)
- (bar-style
- :allocation :arg
- :accessor progress-bar-style
- :initarg :bar-style
- :type progress-bar-style)
- (activity-step
- :allocation :arg
- :accessor progress-bar-activity-step
- :initarg :activity-step
- :type unsigned-int)
- (activity-blocks
- :allocation :arg
- :accessor progress-bar-activity-blocks
- :initarg :activity-blocks
- :type unsigned-int)
- (discrete-blocks
- :allocation :arg
- :accessor progress-bar-discrete-blocks
- :initarg :discrete-blocks
- :type unsigned-int)
- (fraction
- :allocation :arg
- :accessor progress-bar-fraction
- :initarg :fraction
- :type single-float)
- (pulse-step
- :allocation :arg
- :accessor progress-bar-pulse-step
- :initarg :pulse-step
- :type single-float)
- (text
- :allocation :virtual
- :location ("gtk_progress_get_current_text" "gtk_progress_bar_set_text")
- :accessor progress-bar-text
- :type string))
- (:metaclass widget-class)
- (:alien-name "GtkProgressBar"))
-
-; (defclass item-factory object)
-