-(defclass visual (static-structure)
- ()
- (:metaclass alien-class)
- (:alien-name "GdkVisual"))
-
-
-(defclass colormap (gobject)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkColormap"))
-
-
-(defclass drawable (gobject)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkDrawable"))
-
-
-(defclass window (drawable)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkWindow")
- (:type-init "gdk_window_object_get_type"))
-
-
-(defclass pixmap (drawable)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkPixmap"))
-
-;; 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
-; :allocation :alien
-; :accessor geometry-min-width
-; :initarg :min-width
-; :type int)
-; (min-height
-; :allocation :alien
-; :accessor geometry-min-height
-; :initarg :min-heigth
-; :type int)
-; (max-width
-; :allocation :alien
-; :accessor geometry-max-width
-; :initarg :max-width
-; :type int)
-; (max-height
-; :allocation :alien
-; :accessor geometry-max-height
-; :initarg :max-heigth
-; :type int)
-; (base-width
-; :allocation :alien
-; :accessor geometry-base-width
-; :initarg :base-width
-; :type int)
-; (base-height
-; :allocation :alien
-; :accessor geometry-base-height
-; :initarg :base-heigth
-; :type int)
-; (width-inc
-; :allocation :alien
-; :accessor geometry-width-inc
-; :initarg :width-inc
-; :type int)
-; (height-inc
-; :allocation :alien
-; :accessor geometry-height-inc
-; :initarg :heigth-inc
-; :type int)
-; (min-aspect
-; :allocation :alien
-; :accessor geometry-min-aspect
-; :initarg :min-aspect
-; :type double-float)
-; (max-aspect
-; :allocation :alien
-; :accessor geometry-max-aspect
-; :initarg :max-aspect
-; :type double-float))
-; (:metaclass alien-class))
-
-
-(defclass image (gobject)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkImage"))
-
-
-(defclass gc (gobject)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkGC"))
-
-
-(defclass font (alien-object)
- ()
- (:metaclass alien-class)
- (:alien-name "GdkFont"))
-
-
-(defclass cursor (alien-object)
- ((type
- :allocation :alien
- :accessor cursor-type
- :initarg :type
- :type cursor-type))
- (:metaclass alien-class))
-
-
-(defclass drag-context (gobject)
- ()
- (:metaclass gobject-class)
- (:alien-name "GdkDragContext"))
-
-
-(defclass device (alien-structure)
- ()
- (:metaclass alien-class))