From 2719586faa793200482ff26a19cde3bd27f41605 Mon Sep 17 00:00:00 2001 From: espen Date: Tue, 29 May 2001 15:56:58 +0000 Subject: [PATCH] Type definitions now done by introspection --- gtk/gtktypes.lisp | 1625 +++++------------------------------------------------ 1 file changed, 143 insertions(+), 1482 deletions(-) diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 6a03a44..51a9d14 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -1,5 +1,5 @@ ;; Common Lisp bindings for GTK+ v2.0.x -;; Copyright (C) 1999-2000 Espen S. Johnsen +;; Copyright (C) 1999-2001 Espen S. Johnsen ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -15,13 +15,116 @@ ;; 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 @@ -56,70 +159,11 @@ (: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") @@ -140,95 +184,6 @@ :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") @@ -254,63 +209,8 @@ (: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" @@ -320,75 +220,7 @@ (: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) @@ -413,13 +245,6 @@ (:metaclass widget-class) (:alien-name "GtkContainer")) -(defclass container-child () - ((parent - :initarg :parent - :type container) - (child - :initarg :child - :type widget))) (defclass bin (container) @@ -430,137 +255,6 @@ (: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) @@ -572,11 +266,6 @@ (:metaclass container-class) (:alien-name "GtkRadioButton")) -(defclass radio-button-child (check-button-child) - () - (:metaclass child-class)) - - (defclass option-menu (button) ((menu :allocation :virtual @@ -593,26 +282,6 @@ (: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 @@ -647,33 +316,6 @@ :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) @@ -685,84 +327,6 @@ (: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) @@ -777,10 +341,6 @@ (:metaclass container-class) (:alien-name "GtkDialog")) -(defclass dialog-child (window-child) - () - (:metaclass child-class)) - (defclass color-selection-dialog (dialog) ((colorsel @@ -802,20 +362,6 @@ (: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 @@ -843,82 +389,8 @@ (: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" @@ -932,77 +404,6 @@ (: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 @@ -1033,210 +434,47 @@ :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") @@ -1256,30 +494,6 @@ (: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 @@ -1316,43 +530,7 @@ (: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 @@ -1376,185 +554,8 @@ (: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 @@ -1589,31 +590,6 @@ (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") @@ -1623,178 +599,19 @@ (: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") @@ -1804,52 +621,7 @@ (: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" @@ -1859,79 +631,8 @@ (: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" @@ -1959,58 +660,18 @@ :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) +|# -- 2.11.0