anchor.diff:    (:metaclass gobject-class)
     (:alien-name "GdkPixmap"))
   
  -; (defclass bitmap (drawable))
  -(deftype bitmap () 'pointer)
  +;; Bitmaps is not defined as a propper type in gdk, only as an alias for
  +;; GdkDrawable, so we have to define it this way as a workaround
  +(defclass bitmap (alien-object)
  +  ()
  +  (:metaclass alien-class))
  +
   
   ; (defclass geometry (alien-structure)
   ;   ((min-width
  
positive.code:     :allocation :alien
      :accessor event-send-event
      :initarg :send-event
      :type (signed 8)))
    (:metaclass alien-class)
    (:alien-name "GdkEvent"))
  
  
  (defclass expose-event (event)
    ()
    (:metaclass alien-class))
  
  
  (defclass delete-event (event)
    ()
    (:metaclass alien-class))
  
  
  
  
  ;(define-boxed device-key)
  ;(define-boxed device-info)
  ;(define-boxed time-coord)
  ;(define-boxed ic)
  ;(define-boxed ic-attr)
  
  
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.2 2001-02-11 20:28:07 espen Exp $
  
  (in-package "GDK")
  
  
  (defclass color (alien-structure)
    ((pixel
      :allocation :alien
      :type unsigned-long)
  