;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gtktypes.lisp,v 1.4 2000-10-05 17:30:07 espen Exp $
+;; $Id: gtktypes.lisp,v 1.5 2001-01-28 14:21:04 espen Exp $
:accessor widget-child-slots
:type container-child)
(name
- :allocation :arg
+ :allocation :param
:accessor widget-name
:initarg :name
:type string)
(parent
- :allocation :arg
+ :allocation :param
:accessor widget-parent
; :initarg :parent
:type container)
(x
- :allocation :arg
+ :allocation :param
:accessor widget-x-position
:initarg :x
:type int)
(y
- :allocation :arg
+ :allocation :param
:accessor widget-y-position
:initarg :y
:type int)
(width
- :allocation :arg
+ :allocation :param
:accessor widget-width
:initarg :width
:type int)
(height
- :allocation :arg
+ :allocation :param
:accessor widget-height
:initarg :height
:type int)
(visible
- :allocation :arg
+ :allocation :param
:accessor widget-visible-p
:initarg :visible
:type boolean)
(sensitive
- :allocation :arg
+ :allocation :param
:accessor widget-sensitive-p
:initarg :sensitive
:type boolean)
(app-paintable
- :allocation :arg
+ :allocation :param
:reader widget-app-paintable-p
:type boolean)
(can-focus
- :allocation :arg
+ :allocation :param
:accessor widget-can-focus-p
:initarg :can-focus
:type boolean)
(has-focus
- :allocation :arg
+ :allocation :param
:accessor widget-has-focus-p
:initarg :has-focus
:type boolean)
(can-default
- :allocation :arg
+ :allocation :param
:accessor widget-can-default-p
:initarg :can-default
:type boolean)
(has-default
- :allocation :arg
+ :allocation :param
:accessor widget-has-default-p
:initarg :has-default
:type boolean)
(receives-default
- :allocation :arg
+ :allocation :param
:accessor widget-receives-default-p
:initarg :receives-default
:type boolean)
(composite-child
- :allocation :arg
+ :allocation :param
:accessor widget-composite-child-p
:initarg :composite-child
:type boolean)
(style
- :allocation :arg
+ :allocation :param
:accessor widget-style
:initarg :style
:type style)
(events
- :allocation :arg
+ :allocation :param
:accessor widget-events
:initarg :events
:type gdk:event-mask)
(extension-events
- :allocation :arg
+ :allocation :param
:accessor widget-extension-events
:initarg :extpension-events
:type gdk:event-mask)
(defclass misc (widget)
((xalign
- :allocation :arg
+ :allocation :param
:accessor misc-xalign
:initarg :xalign
:type single-float)
(yalign
- :allocation :arg
+ :allocation :param
:accessor misc-yalign
:initarg :yalign
:type single-float)
(xpad
- :allocation :arg
+ :allocation :param
:accessor misc-xpad
:initarg :xpad
:type int)
(ypad
- :allocation :arg
+ :allocation :param
:accessor misc-ypad
:initarg :ypad
:type int))
(defclass label (misc)
((label
- :allocation :arg
+ :allocation :param
:accessor label-label
:initarg :label
:type string)
(pattern
- :allocation :arg
+ :allocation :param
:accessor label-pattern
:initarg :pattern
:type string)
(justify
- :allocation :arg
+ :allocation :param
:accessor label-justify
:initarg :justify
:type justification)
(wrap
- :allocation :arg
+ :allocation :param
:accessor label-line-wrap-p
:initarg :wrap
:type boolean))
(defclass accel-label (label)
((widget
- :allocation :arg
+ :allocation :param
:location "GtkAccelLabel::accel_widget"
:accessor accel-label-accel-widget
:initarg :accel-widget
(defclass tips-query (label)
((emit-always
- :allocation :arg
+ :allocation :param
:accessor tips-query-emit-always-p
:initarg :emit-always
:type boolean)
(caller
- :allocation :arg
+ :allocation :param
:accessor tips-query-caller
:initarg :caller
:type widget)
(label-inactive
- :allocation :arg
+ :allocation :param
:accessor tips-query-label-inactive
:initarg :label-inactive
:type string)
(label-no-tip
- :allocation :arg
+ :allocation :param
:accessor tips-query-label-no-tip
:initarg :label-no-tip
:type string))
(defclass arrow (misc)
((arrow-type
- :allocation :arg
+ :allocation :param
:accessor arrow-arrow-type
:initarg :arrow-type
:type arrow-type)
(shadow-type
- :allocation :arg
+ :allocation :param
:accessor arrow-shadow-type
:initarg :shadow-type
:type shadow-type))
(defclass container (widget)
((border-width
- :allocation :arg
+ :allocation :param
:accessor container-border-width
:initarg :border-width
:type unsigned-long)
(resize-mode
- :allocation :arg
+ :allocation :param
:accessor container-resize-mode
:initarg :resize-mode
:type resize-mode)
(defclass alignment (bin)
((xalign
- :allocation :arg
+ :allocation :param
:accessor alignment-xalign
:initarg :xalign
:type single-float)
(yalign
- :allocation :arg
+ :allocation :param
:accessor alignment-yalign
:initarg :yalign
:type single-float)
(xscale
- :allocation :arg
+ :allocation :param
:accessor alignment-xscale
:initarg :xscale
:type single-float)
(yscale
- :allocation :arg
+ :allocation :param
:accessor alignment-yscale
:initarg :yscale
:type single-float))
:initarg :label
:type string)
(label-xalign
- :allocation :arg
+ :allocation :param
:accessor frame-label-xalign
:initarg :label-xalign
:type single-float)
(label-yalign
- :allocation :arg
+ :allocation :param
:accessor frame-label-yalign
:initarg :label-yalign
:type single-float)
(shadow-type
- :allocation :arg
+ :allocation :param
:location "GtkFrame::shadow"
:accessor frame-shadow-type
:initarg :shadow-type
; (defclass aspect-frame (frame)
; ((xalign
-; :allocation :arg
+; :allocation :param
; :accessor aspect-frame-xalign
; :initarg :xalign
; :type single-float)
; (yalign
-; :allocation :arg
+; :allocation :param
; :accessor aspect-frame-yalign
; :initarg :yalign
; :type single-float)
; (ratio
-; :allocation :arg
+; :allocation :param
; :accessor aspect-frame-ratio
; :initarg :ratio
; :type single-float)
; (obey-child
-; :allocation :arg
+; :allocation :param
; :accessor aspect-frame-obey-child-p
; :initarg :obey-child
; :type boolean))
(defclass button (bin)
((label
- :allocation :virtual
- :location button-label
+ :allocation :param
:initarg :label
:type string)
(relief
- :allocation :arg
+ :allocation :param
:accessor button-relief
:initarg :relief
:type relief-style))
(defclass toggle-button (button)
((active
- :allocation :arg
+ :allocation :param
:accessor toggle-button-active-p
:initarg :active
:type boolean)
(draw-indicator
- :allocation :arg
+ :allocation :param
:accessor toggle-button-draw-indicator-p
:initarg :draw-indicator
:type boolean))
(defclass window (bin)
((type
- :allocation :arg
+ :allocation :param
:accessor window-type
:initarg :type
:type window-type)
(title
- :allocation :arg
+ :allocation :param
:accessor window-title
:initarg :title
:type string)
(auto-shrink
- :allocation :arg
+ :allocation :param
:accessor window-auto-shrink-p
:initarg :auto-shrink
:type boolean)
(allow-shrink
- :allocation :arg
+ :allocation :param
:accessor window-allow-shrink-p
:initarg :allow-shrink
:type boolean)
(allow-grow
- :allocation :arg
+ :allocation :param
:accessor window-allow-grow-p
:initarg :allow-grow
:type boolean)
(modal
- :allocation :arg
+ :allocation :param
:accessor window-modal-p
:initarg :modal
:type boolean)
(position
- :allocation :arg
+ :allocation :param
:location "GtkWindow::window_position"
:accessor window-position
:initarg :position
:type window-position)
(default-width
- :allocation :arg
+ :allocation :param
:accessor window-default-width
:initarg :default-width
:type int)
(default-height
- :allocation :arg
+ :allocation :param
:accessor window-default-height
:initarg :default-height
:type int))
(defclass handle-box (bin)
((shadow-type
- :allocation :arg
+ :allocation :param
:location "GtkHandleBox::shadow"
:accessor handle-box-shadow-type
:initarg :shadow-type
:type shadow-type)
(handle-position
- :allocation :arg
+ :allocation :param
:accessor handle-box-handle-position
:initarg :handle-position
:type position-type)
(snap-edge
- :allocation :arg
+ :allocation :param
:accessor handle-box-snap-edge
:initarg :snap-edge
:type position-type))
(defclass scrolled-window (bin)
((hadjustment
- :allocation :arg
+ :allocation :param
:accessor scrolled-window-hadjustment
:initarg :hadjustment
:type adjustment)
(vadjustment
- :allocation :arg
+ :allocation :param
:accessor scrolled-window-vadjustment
:initarg :vadjustment
:type adjustment)
(hscrollbar-policy
- :allocation :arg
+ :allocation :param
:accessor scrolled-window-hscrollbar-policy
:initarg :hscrollbar-policy
:type policy-type)
(vscrollbar-policy
- :allocation :arg
+ :allocation :param
:accessor scrolled-window-vscrollbar-policy
:initarg :vscrollbar-policy
:type policy-type)
(placement
- :allocation :arg
+ :allocation :param
:location "GtkScrolledWindow::window_placement"
:accessor scrolled-window-placement
:initarg :placement
:type corner-type)
(shadow-type
- :allocation :arg
+ :allocation :param
:location "GtkScrolledWindow::shadow"
:accessor scrolled-window-shadow-type
:initarg :shadow-type
(defclass viewport (bin)
((hadjustment
- :allocation :arg
+ :allocation :param
:accessor viewport-hadjustment
:initarg :hadjustment
:type adjustment)
(vadjustment
- :allocation :arg
+ :allocation :param
:accessor viewport-vadjustment
:initarg :vadjustment
:type adjustment)
(shadow-type
- :allocation :arg
+ :allocation :param
:accessor viewport-shadow-type
:initarg :shadow-type
:type shadow-type))
(defclass box (container)
((spacing
- :allocation :arg
+ :allocation :param
:accessor box-spacing
:initarg :spacing
:type int)
(homogeneous
- :allocation :arg
+ :allocation :param
:accessor box-homogeneous-p
:initarg :homogeneous
:type boolean))
(defclass notebook (container)
((tab-pos
- :allocation :arg
+ :allocation :param
:accessor notebook-tab-pos
:initarg :tab-pos
:type position-type)
(show-tabs
- :allocation :arg
+ :allocation :param
:accessor notebook-show-tabs-p
:initarg :show-tabs
:type boolean)
(show-border
- :allocation :arg
+ :allocation :param
:accessor notebook-show-border-p
:initarg :show-border
:type boolean)
(scrollable
- :allocation :arg
+ :allocation :param
:accessor notebook-scrollable-p
:initarg :scrollable
:type boolean)
(tab-border
- :allocation :arg
+ :allocation :param
:accessor notebook-tab-border
:initarg :tab-border
:type unsigned-int)
(tab-hborder
- :allocation :arg
+ :allocation :param
:accessor notebook-tab-hborder
:initarg :tab-hborder
:type unsigned-int)
(tab-vborder
- :allocation :arg
+ :allocation :param
:accessor notebook-tab-vborder
:initarg :tab-vborder
:type unsigned-int)
(page
- :allocation :arg
+ :allocation :param
:accessor notebook-page
:initarg :page
:type int)
(enable-popup
- :allocation :arg
+ :allocation :param
:accessor notebook-enable-popup-p
:initarg :enable-popup
:type boolean)
(homogeneous
- :allocation :arg
+ :allocation :param
:accessor notebook-homogeneous-p
:initarg :homogeneous
:type boolean))
(defclass paned (container)
((handle-size
- :allocation :arg
+ :allocation :param
:accessor paned-handle-size
:initarg handle-size
:type unsigned-int)
(defclass menu-bar (menu-shell)
((shadow-type
- :allocation :arg
+ :allocation :param
:location "GtkMenuBar::shadow"
:accessor menu-bar-shadow-type
:initarg :shadow-type
(defclass packer (container)
((spacing
- :allocation :arg
+ :allocation :param
:accessor packer-spacing
:initarg :spacing
:type unsigned-int)
(default-border-width
- :allocation :arg
+ :allocation :param
:accessor packer-default-border-width
:initarg :default-border-width
:type unsigned-int)
(default-pad-x
- :allocation :arg
+ :allocation :param
:accessor packer-default-pad-x
:initarg :default-pad-x
:type unsigned-int)
(default-pad-y
- :allocation :arg
+ :allocation :param
:accessor packer-default-pad-y
:initarg :default-pad-y
:type unsigned-int)
(default-ipad-x
- :allocation :arg
+ :allocation :param
:accessor packer-default-ipad-x
:initarg :default-ipad-x
:type unsigned-int)
(default-ipad-y
- :allocation :arg
+ :allocation :param
:accessor packer-default-ipad-y
:initarg :default-ipad-y
:type unsigned-int))
(defclass table (container)
((rows
- :allocation :arg
+ :allocation :param
:location "GtkTable::n_rows"
:accessor table-rows
:initarg :rows
:type unsigned-int)
(columns
- :allocation :arg
+ :allocation :param
:location "GtkTable::n_columns"
:accessor table-columns
:initarg :columns
:type unsigned-int)
(row-spacing
- :allocation :arg
+ :allocation :param
:accessor table-default-row-spacing
:initarg :row-spacing
:type unsigned-int)
(column-spacing
- :allocation :arg
+ :allocation :param
:accessor table-default-column-spacing
:initarg :column-spacing
:type unsigned-int)
(homogeneous
- :allocation :arg
+ :allocation :param
:accessor table-homogeneous-p
:initarg :homogeneous
:type boolean))
(defclass toolbar (container)
((orientation
- :allocation :arg
+ :allocation :param
:accessor toolbar-orientation
:initarg :orientation
:type orientation)
(toolbar-style
- :allocation :arg
+ :allocation :param
:accessor toolbar-style
:initarg :toolbar-style
:type toolbar-style)
(space-size
- :allocation :arg
+ :allocation :param
:accessor toolbar-space-size
:initarg :space-size
:type unsigned-int)
(space-style
- :allocation :arg
+ :allocation :param
:accessor toolbar-space-style
:initarg :space-style
:type toolbar-space-style)
(relief
- :allocation :arg
+ :allocation :param
:accessor toolbar-relief
:initarg :relief
:type relief-style)
(defclass editable (widget)
((position
- :allocation :arg
+ :allocation :param
:location "GtkEditable::text_position"
:accessor ediatable-position
:initarg :position
:type int)
(editable
- :allocation :arg
+ :allocation :param
:accessor editable-editable-p
:initarg :editable
:type boolean)
(defclass entry (editable)
((max-length
- :allocation :arg
+ :allocation :param
:accessor entry-max-length
:initarg :max-length
:type unsigned-int)
(visible
- :allocation :arg
+ :allocation :param
:location "GtkEntry::visibility"
:accessor entry-visible-p
:initarg :visible
(defclass spin-button (entry)
((adjustment
- :allocation :arg
+ :allocation :param
:accessor spin-button-adjustment
:initarg :adjustment
:type adjustment)
(climb-rate
- :allocation :arg
+ :allocation :param
:accessor spin-button-climb-rate
:initarg :climb-rate
:type single-float)
(digits
- :allocation :arg
+ :allocation :param
:accessor spin-button-digits
:initarg :digits
:type unsigned-int)
(snap-to-ticks
- :allocation :arg
+ :allocation :param
:accessor spin-button-snap-to-ticks-p
:initarg :snap-to-ticks
:type boolean)
(numeric
- :allocation :arg
+ :allocation :param
:accessor spin-button-numeric-p
:initarg :numeric
:type boolean)
(wrap
- :allocation :arg
+ :allocation :param
:accessor spin-button-wrap-p
:initarg :wrap
:type boolean)
(update-policy
- :allocation :arg
+ :allocation :param
:accessor spin-button-update-policy
:initarg :update-policy
:type spin-button-update-policy)
(shadow-type
- :allocation :arg
+ :allocation :param
:accessor spin-button-shadow-type
:initarg :shadow-type
:type shadow-type)
(value
- :allocation :arg
+ :allocation :param
:accessor spin-button-value
:initarg :value
:type single-float))
(defclass ruler (widget)
((lower
- :allocation :arg
+ :allocation :param
:accessor ruler-lower
:initarg :lower
:type single-float)
(upper
- :allocation :arg
+ :allocation :param
:accessor ruler-upper
:initarg :upper
:type single-float)
(position
- :allocation :arg
+ :allocation :param
:accessor ruler-position
:initarg :position
:type single-float)
(max-size
- :allocation :arg
+ :allocation :param
:accessor ruler-max-size
:initarg :max-size
:type single-float)
(defclass range (widget)
((update-policy
- :allocation :arg
+ :allocation :param
:accessor range-update-policy
:initarg :update-policy
:type update-type)
(defclass scale (range)
((digits
- :allocation :arg
+ :allocation :param
:accessor scale-digits
:initarg :digits
:type int)
(draw-value
- :allocation :arg
+ :allocation :param
:accessor scale-draw-value-p
:initarg :draw-value
:type boolean)
(value-position
- :allocation :arg
+ :allocation :param
:location "GtkScale::value_pos"
:accessor scale-value-position
:initarg :value-position
(defclass progress (widget)
((activity-mode
- :allocation :arg
+ :allocation :param
:accessor progress-activity-mode-p
:initarg :activity-mode
:type boolean)
(show-text
- :allocation :arg
+ :allocation :param
:accessor progress-show-text-p
:initarg :show-text
:type boolean)
(text-xalign
- :allocation :arg
+ :allocation :param
:accessor progress-text-xalign
:initarg :text-xalign
:type single-float)
(text-yalign
- :allocation :arg
+ :allocation :param
:accessor progress-text-yalign
:initarg :text-yalign
:type single-float)
(defclass progress-bar (progress)
((orientation
- :allocation :arg
+ :allocation :param
:accessor progress-bar-orientation
:initarg :orientation
:type progress-bar-orientation)
(bar-style
- :allocation :arg
+ :allocation :param
:accessor progress-bar-style
:initarg :bar-style
:type progress-bar-style)
(activity-step
- :allocation :arg
+ :allocation :param
:accessor progress-bar-activity-step
:initarg :activity-step
:type unsigned-int)
(activity-blocks
- :allocation :arg
+ :allocation :param
:accessor progress-bar-activity-blocks
:initarg :activity-blocks
:type unsigned-int)
(discrete-blocks
- :allocation :arg
+ :allocation :param
:accessor progress-bar-discrete-blocks
:initarg :discrete-blocks
:type unsigned-int)
(fraction
- :allocation :arg
+ :allocation :param
:accessor progress-bar-fraction
:initarg :fraction
:type single-float)
(pulse-step
- :allocation :arg
+ :allocation :param
:accessor progress-bar-pulse-step
:initarg :pulse-step
:type single-float)
~mdw / clg / commitdiff