anchor.diff:  (defclass cursor (struct)
     ((type
       :allocation :alien
  -    :accessor cursor-type
  -    :initarg :type
  -    :type cursor-type))
  +    :reader cursor-type
  +    :type cursor-type)
  +   (ref-count
  +    :allocation :alien
  +    :type unsigned-int)
  +   (display
  +    :allocation :virtual
  +    :getter "gdk_cursor_get_display"
  +    :reader cursor-display
  +    :type display))
     (:metaclass struct-class))
   
   (defclass device (struct)
  
positive.code:   (:alien-name "GdkColor"))
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (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)
  
negative.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.9 2004-12-20 00:31:01 espen Exp $
  
  (in-package "GDK")
  
  