;; Common Lisp bindings for GTK+ v2.0.x
-;; Copyright (C) 1999-2000 Espen S. Johnsen <espejohn@online.no>
+;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; 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.6 2001-01-28 14:27:17 espen Exp $
-
+;; $Id: gtktypes.lisp,v 1.7 2001-05-29 15:56:58 espen Exp $
(in-package "GTK")
+(defclass requisition (boxed)
+ ((width
+ :allocation :alien
+ :accessor requisition-width
+ :initarg :width
+ :type int)
+ (height
+ :allocation :alien
+ :accessor requisition-height
+ :initarg :height
+ :type int))
+ (:metaclass boxed-class)
+ (:alien-name "GtkRequisition"))
+
+(defclass border (boxed)
+ ((left
+ :allocation :alien
+ :accessor border-left
+ :initarg :left
+ :type int)
+ (right
+ :allocation :alien
+ :accessor border-right
+ :initarg :right
+ :type int)
+ (top
+ :allocation :alien
+ :accessor border-top
+ :initarg :top
+ :type int)
+ (bottom
+ :allocation :alien
+ :accessor border-bottom
+ :initarg :bottom
+ :type int))
+ (:metaclass boxed-class)
+ (:alien-name "GtkBorder"))
+
+(defclass adjustment (%object)
+ ((lower
+ :allocation :alien
+ :accessor adjustment-lower
+ :initarg :lower
+ :type single-float)
+ (upper
+ :allocation :alien
+ :accessor adjustment-upper
+ :initarg :upper
+ :type single-float)
+ (value
+ :allocation :alien
+ :accessor adjustment-value
+ :initarg :value
+ :type single-float)
+ (step-increment
+ :allocation :alien
+ :accessor adjustment-step-increment
+ :initarg :step-increment
+ :type single-float)
+ (page-increment
+ :allocation :alien
+ :accessor adjustment-page-increment
+ :initarg :page-increment
+ :type single-float)
+ (page-size
+ :allocation :alien
+ :accessor adjustment-page-size
+ :initarg :page-size
+ :type single-float))
+ (:metaclass gobject-class)
+ (:alien-name "GtkAdjustment"))
+
+(define-types-by-introspection "Gtk"
+ ;; Manually defined
+ ("GtkObject" :ignore t)
+ ("GtkRequisition" :ignore t)
+ ("GtkBorder" :ignore t)
+ ("GtkAdjustment" :ignore t)
+
+ ;; Temporary disabled
+ ("GtkCellRenderer" :ignore-prefix t)
+
+ ;; Manual override
+
+ ;; Not needed
+ ("GtkFundamentalType" :ignore t)
+ ("GtkArgFlags" :ignore t)
+
+ ;; Deprecated
+ ("GtkCList" :ignore-prefix t)
+ ("GtkCTree" :ignore-prefix t)
+ ("GtkList" :ignore t)
+ ("GtkTree" :ignore t)
+ ("GtkTreeItem" :ignore t)
+ ("GtkText" :ignore-prefix t)
+ ("GtkPacker" :ignore-prefix t)
+ ("GtkPixmap" :ignore t)
+ ("GtkPreview" :ignore-prefix t)
+ ("GtkTipsQuery" :ignore t)
+ ("GtkOldEditable" :ignore t))
+
+
+
+#|
(deftype color-type ()
'(enum
:foreground
(:alien-name "GtkStyle"))
-(defclass accel-group (alien-object)
- ()
- (:metaclass alien-class)
- (:alien-name "GtkAccelGroup"))
-
-(deftype accel-entry () 'pointer) ; internal?
+;(deftype accel-entry () 'pointer) ; internal?
-
-
-;; Forward declaration of widget and container
-(defclass widget (object)
- ()
- (:metaclass object-class)
- (:alien-name "GtkWidget"))
-
-(defclass container (widget)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkContainer"))
-
-
-
-(defclass data (object)
- ()
- (:metaclass object-class)
- (:alien-name "GtkData"))
-
-
-(defclass adjustment (data)
- ((lower
- :allocation :alien
- :accessor adjustment-lower
- :initarg :lower
- :type single-float)
- (upper
- :allocation :alien
- :accessor adjustment-upper
- :initarg :upper
- :type single-float)
- (value
- :allocation :alien
- :accessor adjustment-value
- :initarg :value
- :type single-float)
- (step-increment
- :allocation :alien
- :accessor adjustment-step-increment
- :initarg :step-increment
- :type single-float)
- (page-increment
- :allocation :alien
- :accessor adjustment-page-increment
- :initarg :page-increment
- :type single-float)
- (page-size
- :allocation :alien
- :accessor adjustment-page-size
- :initarg :page-size
- :type single-float))
- (:metaclass object-class)
- (:alien-name "GtkAdjustment"))
-(defclass tooltips (data)
+(defclass tooltips (%object)
((delay
:allocation :virtual
:location ("gtk_tooltips_get_delay" "gtk_tooltips_set_delay")
:allocation :instance
:accessor widget-child-slots
:type container-child)
- (name
- :allocation :param
- :accessor widget-name
- :initarg :name
- :type string)
- (parent
- :allocation :param
- :accessor widget-parent
-; :initarg :parent
- :type container)
- (x
- :allocation :param
- :accessor widget-x-position
- :initarg :x
- :type int)
- (y
- :allocation :param
- :accessor widget-y-position
- :initarg :y
- :type int)
- (width
- :allocation :param
- :accessor widget-width
- :initarg :width
- :type int)
- (height
- :allocation :param
- :accessor widget-height
- :initarg :height
- :type int)
- (visible
- :allocation :param
- :accessor widget-visible-p
- :initarg :visible
- :type boolean)
- (sensitive
- :allocation :param
- :accessor widget-sensitive-p
- :initarg :sensitive
- :type boolean)
- (app-paintable
- :allocation :param
- :reader widget-app-paintable-p
- :type boolean)
- (can-focus
- :allocation :param
- :accessor widget-can-focus-p
- :initarg :can-focus
- :type boolean)
- (has-focus
- :allocation :param
- :accessor widget-has-focus-p
- :initarg :has-focus
- :type boolean)
- (can-default
- :allocation :param
- :accessor widget-can-default-p
- :initarg :can-default
- :type boolean)
- (has-default
- :allocation :param
- :accessor widget-has-default-p
- :initarg :has-default
- :type boolean)
- (receives-default
- :allocation :param
- :accessor widget-receives-default-p
- :initarg :receives-default
- :type boolean)
- (composite-child
- :allocation :param
- :accessor widget-composite-child-p
- :initarg :composite-child
- :type boolean)
- (style
- :allocation :param
- :accessor widget-style
- :initarg :style
- :type style)
- (events
- :allocation :param
- :accessor widget-events
- :initarg :events
- :type gdk:event-mask)
- (extension-events
- :allocation :param
- :accessor widget-extension-events
- :initarg :extpension-events
- :type gdk:event-mask)
(state
:allocation :virtual
:location ("gtk_widget_get_state" "gtk_widget_set_state")
(:alien-name "GtkWidget"))
-(defclass misc (widget)
- ((xalign
- :allocation :param
- :accessor misc-xalign
- :initarg :xalign
- :type single-float)
- (yalign
- :allocation :param
- :accessor misc-yalign
- :initarg :yalign
- :type single-float)
- (xpad
- :allocation :param
- :accessor misc-xpad
- :initarg :xpad
- :type int)
- (ypad
- :allocation :param
- :accessor misc-ypad
- :initarg :ypad
- :type int))
- (:metaclass widget-class)
- (:alien-name "GtkMisc"))
-
-
-(defclass label (misc)
- ((label
- :allocation :param
- :accessor label-label
- :initarg :label
- :type string)
- (pattern
- :allocation :param
- :accessor label-pattern
- :initarg :pattern
- :type string)
- (justify
- :allocation :param
- :accessor label-justify
- :initarg :justify
- :type justification)
- (wrap
- :allocation :param
- :accessor label-line-wrap-p
- :initarg :wrap
- :type boolean))
- (:metaclass widget-class)
- (:alien-name "GtkLabel"))
-
(defclass accel-label (label)
- ((widget
- :allocation :param
- :location "GtkAccelLabel::accel_widget"
- :accessor accel-label-accel-widget
- :initarg :accel-widget
- :type widget)
(width
:allocation :virtual
:location "gtk_accel_label_get_accel_width"
(:alien-name "GtkAccelLabel"))
-(defclass tips-query (label)
- ((emit-always
- :allocation :param
- :accessor tips-query-emit-always-p
- :initarg :emit-always
- :type boolean)
- (caller
- :allocation :param
- :accessor tips-query-caller
- :initarg :caller
- :type widget)
- (label-inactive
- :allocation :param
- :accessor tips-query-label-inactive
- :initarg :label-inactive
- :type string)
- (label-no-tip
- :allocation :param
- :accessor tips-query-label-no-tip
- :initarg :label-no-tip
- :type string))
- (:metaclass widget-class)
- (:alien-name "GtkTipsQuery"))
-
-
-(defclass arrow (misc)
- ((arrow-type
- :allocation :param
- :accessor arrow-arrow-type
- :initarg :arrow-type
- :type arrow-type)
- (shadow-type
- :allocation :param
- :accessor arrow-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass widget-class)
- (:alien-name "GtkArrow"))
-
-
-(defclass image (misc)
- ()
- (:metaclass widget-class)
- (:alien-name "GtkImage"))
-
-
-(defclass pixmap (misc)
- ((source
- :allocation :virtual
- :location pixmap-source)
- (mask
- :allocation :virtual
- :location pixmap-mask
- :type gdk:bitmap))
- (:metaclass widget-class)
- (:alien-name "GtkPixmap"))
-
-
(defclass container (widget)
- ((border-width
- :allocation :param
- :accessor container-border-width
- :initarg :border-width
- :type unsigned-long)
- (resize-mode
- :allocation :param
- :accessor container-resize-mode
- :initarg :resize-mode
- :type resize-mode)
(children
:allocation :virtual
:location container-children)
(:metaclass widget-class)
(:alien-name "GtkContainer"))
-(defclass container-child ()
- ((parent
- :initarg :parent
- :type container)
- (child
- :initarg :child
- :type widget)))
(defclass bin (container)
(:metaclass container-class)
(:alien-name "GtkBin"))
-(defclass bin-child (container-child))
-
-
-(defclass alignment (bin)
- ((xalign
- :allocation :param
- :accessor alignment-xalign
- :initarg :xalign
- :type single-float)
- (yalign
- :allocation :param
- :accessor alignment-yalign
- :initarg :yalign
- :type single-float)
- (xscale
- :allocation :param
- :accessor alignment-xscale
- :initarg :xscale
- :type single-float)
- (yscale
- :allocation :param
- :accessor alignment-yscale
- :initarg :yscale
- :type single-float))
- (:metaclass container-class)
- (:alien-name "GtkAlignment"))
-
-(defclass alignment-child (bin-child))
-
-
-(defclass frame (bin)
- ((label
- :allocation :virtual
- :location ("gtk_frame_get_label" "gtk_frame_set_label")
- :accessor frame-label
- :initarg :label
- :type string)
- (label-xalign
- :allocation :param
- :accessor frame-label-xalign
- :initarg :label-xalign
- :type single-float)
- (label-yalign
- :allocation :param
- :accessor frame-label-yalign
- :initarg :label-yalign
- :type single-float)
- (shadow-type
- :allocation :param
- :location "GtkFrame::shadow"
- :accessor frame-shadow-type
- :initarg :shadow-type
- :type shadow-type))
- (:metaclass container-class)
- (:alien-name "GtkFrame"))
-
-(defclass frame-child (bin-child))
-
-
-; (defclass aspect-frame (frame)
-; ((xalign
-; :allocation :param
-; :accessor aspect-frame-xalign
-; :initarg :xalign
-; :type single-float)
-; (yalign
-; :allocation :param
-; :accessor aspect-frame-yalign
-; :initarg :yalign
-; :type single-float)
-; (ratio
-; :allocation :param
-; :accessor aspect-frame-ratio
-; :initarg :ratio
-; :type single-float)
-; (obey-child
-; :allocation :param
-; :accessor aspect-frame-obey-child-p
-; :initarg :obey-child
-; :type boolean))
-; (:metaclass container-class)
-; (:alien-name "GtkAspectFrame"))
-
-; (defclass aspect-frame-child (aspect-child))
-
-
-(defclass button (bin)
- ((label
- :allocation :param
- :initarg :label
- :type string)
- (relief
- :allocation :param
- :accessor button-relief
- :initarg :relief
- :type relief-style))
- (:metaclass container-class)
- (:alien-name "GtkButton"))
-
-(defclass button-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass toggle-button (button)
- ((active
- :allocation :param
- :accessor toggle-button-active-p
- :initarg :active
- :type boolean)
- (draw-indicator
- :allocation :param
- :accessor toggle-button-draw-indicator-p
- :initarg :draw-indicator
- :type boolean))
- (:metaclass container-class)
- (:alien-name "GtkToggleButton"))
-
-(defclass toggle-button-child (button-child)
- ()
- (:metaclass child-class))
-
-
-(defclass check-button (toggle-button)
- ()
- (:metaclass container-class)
- (:alien-name "GtkCheckButton"))
-
-(defclass check-button-child (toggle-button-child)
- ()
- (:metaclass child-class))
(defclass radio-button (check-button)
(:metaclass container-class)
(:alien-name "GtkRadioButton"))
-(defclass radio-button-child (check-button-child)
- ()
- (:metaclass child-class))
-
-
(defclass option-menu (button)
((menu
:allocation :virtual
(:metaclass container-class)
(:alien-name "GtkOptionMenu"))
-(defclass option-menu-child (button-child)
- ()
- (:metaclass child-class))
-
-
-(defclass item (bin)
- ()
- (:metaclass container-class)
- (:alien-name "GtkItem"))
-
-(defclass item-child (bin-child)
- ()
- (:metaclass child-class))
-
-;; Forward declaration
-(defclass menu-item (item)
- ()
- (:metaclass container-class)
- (:alien-name "GtkMenuItem"))
-
(defclass menu-item (item)
((label
:allocation :virtual
: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)
(: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))
-
-
-(defclass window (bin)
- ((type
- :allocation :param
- :accessor window-type
- :initarg :type
- :type window-type)
- (title
- :allocation :param
- :accessor window-title
- :initarg :title
- :type string)
- (auto-shrink
- :allocation :param
- :accessor window-auto-shrink-p
- :initarg :auto-shrink
- :type boolean)
- (allow-shrink
- :allocation :param
- :accessor window-allow-shrink-p
- :initarg :allow-shrink
- :type boolean)
- (allow-grow
- :allocation :param
- :accessor window-allow-grow-p
- :initarg :allow-grow
- :type boolean)
- (modal
- :allocation :param
- :accessor window-modal-p
- :initarg :modal
- :type boolean)
- (position
- :allocation :param
- :location "GtkWindow::window_position"
- :accessor window-position
- :initarg :position
- :type window-position)
- (default-width
- :allocation :param
- :accessor window-default-width
- :initarg :default-width
- :type int)
- (default-height
- :allocation :param
- :accessor window-default-height
- :initarg :default-height
- :type int))
- (:metaclass container-class)
- (:alien-name "GtkWindow"))
-
-(defclass window-child (bin-child)
- ()
- (:metaclass child-class))
(defclass dialog (window)
(:metaclass container-class)
(:alien-name "GtkDialog"))
-(defclass dialog-child (window-child)
- ()
- (:metaclass child-class))
-
(defclass color-selection-dialog (dialog)
((colorsel
(:metaclass container-class)
(:alien-name "GtkColorSelectionDialog"))
-(defclass color-selection-dialog-child (dialog-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)
((filename
(:metaclass container-class)
(:alien-name "GtkFileSelection"))
-(defclass file-selection-child (window-child)
- ()
- (:metaclass child-class))
-
-
-; (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 :param
- :location "GtkHandleBox::shadow"
- :accessor handle-box-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (handle-position
- :allocation :param
- :accessor handle-box-handle-position
- :initarg :handle-position
- :type position-type)
- (snap-edge
- :allocation :param
- :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 :param
- :accessor scrolled-window-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :param
- :accessor scrolled-window-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (hscrollbar-policy
- :allocation :param
- :accessor scrolled-window-hscrollbar-policy
- :initarg :hscrollbar-policy
- :type policy-type)
- (vscrollbar-policy
- :allocation :param
- :accessor scrolled-window-vscrollbar-policy
- :initarg :vscrollbar-policy
- :type policy-type)
- (placement
- :allocation :param
- :location "GtkScrolledWindow::window_placement"
- :accessor scrolled-window-placement
- :initarg :placement
- :type corner-type)
- (shadow-type
- :allocation :param
- :location "GtkScrolledWindow::shadow"
- :accessor scrolled-window-shadow-type
- :initarg :shadow-type
- :type shadow-type)
(hscrollbar
:allocation :virtual
:location "gtk_scrolled_window_get_hscrollbar"
(:metaclass container-class)
(:alien-name "GtkScrolledWindow"))
-(defclass scrolled-window-child (bin-child)
- ()
- (:metaclass child-class))
-
-
-(defclass viewport (bin)
- ((hadjustment
- :allocation :param
- :accessor viewport-hadjustment
- :initarg :hadjustment
- :type adjustment)
- (vadjustment
- :allocation :param
- :accessor viewport-vadjustment
- :initarg :vadjustment
- :type adjustment)
- (shadow-type
- :allocation :param
- :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 :param
- :accessor box-spacing
- :initarg :spacing
- :type int)
- (homogeneous
- :allocation :param
- :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
:initarg :child-ipad-y
:type int)
(layout
- :allocation :virtual
- :location ("gtk_button_box_get_layout" "gtk_button_box_set_layout")
- :accessor button-box-layout
- :initarg :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)
- ((use-opacity
- :allocation :virtual
- :location ("gtk_color_selection_get_use_opacity"
- "gtk_color_selection_set_use_opacity")
- :accessor color-selection-use-opacity-p
- :initarg :use-opacity
- :type boolean)
- (use-palette
- :allocation :virtual
- :location ("gtk_color_selection_get_use_palette"
- "gtk_color_selection_set_use_palette")
- :accessor color-selection-use-palette-p
- :initarg :use-palette
- :type boolean)
- (color
- :allocation :virtual
- :location color-selection-color
- :initarg :color)
- (old-color
- :allocation :virtual
- :location color-selection-old-color
- :initarg :old-color
- :type (vector double-float 4)))
- (:metaclass container-class)
- (:alien-name "GtkColorSelection"))
-
-(defclass color-selection-child (vbox-child)
- ()
- (:metaclass child-class))
-
-
-(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))
-
-
-(defclass fixed (container)
- ()
- (:metaclass container-class)
- (:alien-name "GtkFixed"))
-
-(defclass fixed-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(defclass notebook (container)
- ((tab-pos
- :allocation :param
- :accessor notebook-tab-pos
- :initarg :tab-pos
- :type position-type)
- (show-tabs
- :allocation :param
- :accessor notebook-show-tabs-p
- :initarg :show-tabs
- :type boolean)
- (show-border
- :allocation :param
- :accessor notebook-show-border-p
- :initarg :show-border
- :type boolean)
- (scrollable
- :allocation :param
- :accessor notebook-scrollable-p
- :initarg :scrollable
- :type boolean)
- (tab-border
- :allocation :param
- :accessor notebook-tab-border
- :initarg :tab-border
- :type unsigned-int)
- (tab-hborder
- :allocation :param
- :accessor notebook-tab-hborder
- :initarg :tab-hborder
- :type unsigned-int)
- (tab-vborder
- :allocation :param
- :accessor notebook-tab-vborder
- :initarg :tab-vborder
- :type unsigned-int)
- (page
- :allocation :param
- :accessor notebook-page
- :initarg :page
- :type int)
- (enable-popup
- :allocation :param
- :accessor notebook-enable-popup-p
- :initarg :enable-popup
- :type boolean)
- (homogeneous
- :allocation :param
- :accessor notebook-homogeneous-p
- :initarg :homogeneous
- :type boolean))
+ :allocation :virtual
+ :location ("gtk_button_box_get_layout" "gtk_button_box_set_layout")
+ :accessor button-box-layout
+ :initarg :layout
+ :type button-box-style))
(:metaclass container-class)
- (:alien-name "GtkNotebook"))
+ (:alien-name "GtkButtonBox"))
-(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
- :type int)
- (tab-fill
- :allocation :arg
- :accessor notebook-child-tab-fill-p
- :initarg :tab-fill
- :type boolean)
- (tab-pack
- :allocation :arg
- :accessor notebook-child-tab-pack-p
- :initarg :tab-pack
- :type boolean))
- (:metaclass child-class))
-(defclass font-selection (notebook)
- ()
+(defclass color-selection (vbox)
+ ((use-opacity
+ :allocation :virtual
+ :location ("gtk_color_selection_get_use_opacity"
+ "gtk_color_selection_set_use_opacity")
+ :accessor color-selection-use-opacity-p
+ :initarg :use-opacity
+ :type boolean)
+ (use-palette
+ :allocation :virtual
+ :location ("gtk_color_selection_get_use_palette"
+ "gtk_color_selection_set_use_palette")
+ :accessor color-selection-use-palette-p
+ :initarg :use-palette
+ :type boolean)
+ (color
+ :allocation :virtual
+ :location color-selection-color
+ :initarg :color)
+ (old-color
+ :allocation :virtual
+ :location color-selection-old-color
+ :initarg :old-color
+ :type (vector double-float 4)))
(:metaclass container-class)
- (:alien-name "GtkFontSelection"))
+ (:alien-name "GtkColorSelection"))
+
-(defclass font-selection-child (notebook-child)
- ()
- (:metaclass child-class))
(defclass paned (container)
- ((handle-size
- :allocation :param
- :accessor paned-handle-size
- :initarg handle-size
- :type unsigned-int)
(position
:allocation :virtual
:location ("gtk_paned_get_position" "gtk_paned_set_position")
(:metaclass container-class)
(:alien-name "GtkPaned"))
-(defclass paned-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(defclass hpaned (paned)
- ()
- (:metaclass container-class)
- (:alien-name "GtkHPaned"))
-
-(defclass hpaned-child (paned-child)
- ()
- (:metaclass child-class))
-
-
-(defclass vpaned (paned)
- ()
- (:metaclass container-class)
- (:alien-name "GtkVPaned"))
-
-(defclass vpaned-child (paned-child)
- ()
- (:metaclass child-class))
-
(defclass layout (container)
((hadjustment
(: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 :param
- :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
(:metaclass container-class)
(:alien-name "GtkMenu"))
-(defclass menu-child (menu-shell-child)
- ()
- (:metaclass child-class))
-
-
-(defclass packer (container)
- ((spacing
- :allocation :param
- :accessor packer-spacing
- :initarg :spacing
- :type unsigned-int)
- (default-border-width
- :allocation :param
- :accessor packer-default-border-width
- :initarg :default-border-width
- :type unsigned-int)
- (default-pad-x
- :allocation :param
- :accessor packer-default-pad-x
- :initarg :default-pad-x
- :type unsigned-int)
- (default-pad-y
- :allocation :param
- :accessor packer-default-pad-y
- :initarg :default-pad-y
- :type unsigned-int)
- (default-ipad-x
- :allocation :param
- :accessor packer-default-ipad-x
- :initarg :default-ipad-x
- :type unsigned-int)
- (default-ipad-y
- :allocation :param
- :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 :param
- :location "GtkTable::n_rows"
- :accessor table-rows
- :initarg :rows
- :type unsigned-int)
- (columns
- :allocation :param
- :location "GtkTable::n_columns"
- :accessor table-columns
- :initarg :columns
- :type unsigned-int)
- (row-spacing
- :allocation :param
- :accessor table-default-row-spacing
- :initarg :row-spacing
- :type unsigned-int)
- (column-spacing
- :allocation :param
- :accessor table-default-column-spacing
- :initarg :column-spacing
- :type unsigned-int)
- (homogeneous
- :allocation :param
- :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
(defclass toolbar (container)
- ((orientation
- :allocation :param
- :accessor toolbar-orientation
- :initarg :orientation
- :type orientation)
- (toolbar-style
- :allocation :param
- :accessor toolbar-style
- :initarg :toolbar-style
- :type toolbar-style)
- (space-size
- :allocation :param
- :accessor toolbar-space-size
- :initarg :space-size
- :type unsigned-int)
- (space-style
- :allocation :param
- :accessor toolbar-space-style
- :initarg :space-style
- :type toolbar-space-style)
- (relief
- :allocation :param
- :accessor toolbar-relief
- :initarg :relief
- :type relief-style)
(tooltips
:allocation :virtual
:location ("gtk_toolbar_get_tooltips" "gtk_toolbar_set_tooltips")
(:metaclass container-class)
(:alien-name "GtkToolbar"))
-(defclass toolbar-child (container-child)
- ()
- (:metaclass child-class))
-
-
-(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 :param
- :location "GtkEditable::text_position"
- :accessor ediatable-position
- :initarg :position
- :type int)
- (editable
- :allocation :param
- :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 :param
- :accessor entry-max-length
- :initarg :max-length
- :type unsigned-int)
- (visible
- :allocation :param
- :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))
+ :type entry))
(:metaclass widget-class)
(:alien-name "GtkCombo"))
-(defclass spin-button (entry)
- ((adjustment
- :allocation :param
- :accessor spin-button-adjustment
- :initarg :adjustment
- :type adjustment)
- (climb-rate
- :allocation :param
- :accessor spin-button-climb-rate
- :initarg :climb-rate
- :type single-float)
- (digits
- :allocation :param
- :accessor spin-button-digits
- :initarg :digits
- :type unsigned-int)
- (snap-to-ticks
- :allocation :param
- :accessor spin-button-snap-to-ticks-p
- :initarg :snap-to-ticks
- :type boolean)
- (numeric
- :allocation :param
- :accessor spin-button-numeric-p
- :initarg :numeric
- :type boolean)
- (wrap
- :allocation :param
- :accessor spin-button-wrap-p
- :initarg :wrap
- :type boolean)
- (update-policy
- :allocation :param
- :accessor spin-button-update-policy
- :initarg :update-policy
- :type spin-button-update-policy)
- (shadow-type
- :allocation :param
- :accessor spin-button-shadow-type
- :initarg :shadow-type
- :type shadow-type)
- (value
- :allocation :param
- :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 :param
- :accessor ruler-lower
- :initarg :lower
- :type single-float)
- (upper
- :allocation :param
- :accessor ruler-upper
- :initarg :upper
- :type single-float)
- (position
- :allocation :param
- :accessor ruler-position
- :initarg :position
- :type single-float)
- (max-size
- :allocation :param
- :accessor ruler-max-size
- :initarg :max-size
- :type single-float)
(metric
:allocation :virtual
:location (nil "gtk_ruler_set_metric")
(: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 :param
- :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 :param
- :accessor scale-digits
- :initarg :digits
- :type int)
- (draw-value
- :allocation :param
- :accessor scale-draw-value-p
- :initarg :draw-value
- :type boolean)
- (value-position
- :allocation :param
- :location "GtkScale::value_pos"
- :accessor scale-value-position
- :initarg :value-position
- :type position-type)
(value-width
:allocation :virtual
:location "gtk_scale_get_value_width"
(: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 :param
- :accessor progress-activity-mode-p
- :initarg :activity-mode
- :type boolean)
- (show-text
- :allocation :param
- :accessor progress-show-text-p
- :initarg :show-text
- :type boolean)
- (text-xalign
- :allocation :param
- :accessor progress-text-xalign
- :initarg :text-xalign
- :type single-float)
- (text-yalign
- :allocation :param
- :accessor progress-text-yalign
- :initarg :text-yalign
- :type single-float)
(format-string
:allocation :virtual
:location ("gtk_progress_get_format_string"
: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 :param
- :accessor progress-bar-orientation
- :initarg :orientation
- :type progress-bar-orientation)
- (bar-style
- :allocation :param
- :accessor progress-bar-style
- :initarg :bar-style
- :type progress-bar-style)
- (activity-step
- :allocation :param
- :accessor progress-bar-activity-step
- :initarg :activity-step
- :type unsigned-int)
- (activity-blocks
+ (activity-blocks ;; deprecated
:allocation :param
:accessor progress-bar-activity-blocks
:initarg :activity-blocks
:type unsigned-int)
- (discrete-blocks
- :allocation :param
- :accessor progress-bar-discrete-blocks
- :initarg :discrete-blocks
- :type unsigned-int)
- (fraction
- :allocation :param
- :accessor progress-bar-fraction
- :initarg :fraction
- :type single-float)
- (pulse-step
- :allocation :param
- :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)
+|#
~mdw / clg / commitdiff