anchor.diff:  ;; Common Lisp bindings for GTK+ v2.0
  -;; Copyright (C) 1999-2000 Espen S. Johnsen <esj@stud.cs.uit.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
  
positive.code: ;; 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: gdktypes.lisp,v 1.2 2001-02-11 20:28:07 espen Exp $
  
  (in-package "GDK")
  
  
  (defclass color (alien-structure)
    ((pixel
      :allocation :alien
      :type unsigned-long)
  
negative.code:     :allocation :alien
      :accessor color-blue
      :type unsigned-short))
    (:metaclass boxed-class))
  
  
  
  (define-types-by-introspection "Gdk"
    ("GdkFunction" :type gc-function)
    ("GdkGC" :type gc)
    ("GdkDrawableImplX11" :ignore t)
    ("GdkWindowImplX11" :ignore t)
    ("GdkPixmapImplX11" :ignore t)
    ("GdkGCX11" :ignore t)
    ("GdkColor" :ignore t)
    ("GdkEvent" :ignore t))
  
  
  (deftype bitmap () 'pixmap)
  
  (defclass cursor (struct)
    ((type
      :allocation :alien
      :accessor cursor-type
      :initarg :type
      :type cursor-type))
    (:metaclass proxy-class)
    (:copy %cursor-copy)
    (:free %cursor-free))
  
  (defclass device (struct)
    ()
    (:metaclass proxy-class))
  
  