anchor.diff:    (: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")
  
positive.code:     :type widget))
    (: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)
  
negative.code:   (:alien-name "GtkStyle"))
  
  
  ;(deftype accel-entry () 'pointer) ; internal?
  
    
  
  (defclass tooltips (%object)
    ((delay
      :allocation :virtual
      :location ("gtk_tooltips_get_delay" "gtk_tooltips_set_delay")
  