anchor.diff:  ;; 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
  
positive.code:     :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")
  
negative.code:   (:metaclass container-class)
    (:alien-name "GtkRadioMenuItem"))
  
  
  
  (defclass dialog (window)
  