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: gdktypes.lisp,v 1.8 2004-11-06 21:39:58 espen Exp $
  +;; $Id: gdktypes.lisp,v 1.9 2004-12-20 00:31:01 espen Exp $
   
   (in-package "GDK")
   
  
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: (defclass cursor (struct)
    ((type
      :allocation :alien
      :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)
  