(:bilevel 0)
(:full 1))
+(define-g-enum "GdkInterpType"
+ gdk-interp-type
+ (:export t :type-initializer "gdk_interp_type_get_type")
+ (:nearest 0)
+ (:tiles 1)
+ (:bilinear 2)
+ (:hyper 3))
+
+(define-g-enum "GdkPixbufRotation"
+ gdk-pixbuf-rotation
+ (:export t :type-initializer "gdk_pixbuf_rotation_get_type")
+ (:none 0)
+ (:counterclockwise 90)
+ (:upsidedown 180)
+ (:clockwise 270))
+
(define-g-enum "GdkColorspace" colorspace ()
:rgb)
(:cffi visible-region drawable-visible-region (g-boxed-foreign region :return)
"gdk_drawable_get_visible_region" nil)))
-(define-g-object-class "GdkWindow" gdk-window (:superclass drawable)
+(define-g-object-class "GdkWindow" gdk-window (:superclass drawable
+ :type-initializer "gdk_window_object_get_type")
(#+gtk-2.18
(cursor gdk-window-cursor "cursor"
"GdkCursor" t t)
do (setf (aref result i) (mem-aref ptr el-type i)))
result)))
+(defmethod translate-to-foreign (value (type fixed-array))
+ (if (null value)
+ (null-pointer)
+ (foreign-alloc (fixed-array-element-type type) :count (length value) :initial-contents value)))
+
+(defmethod free-translated-object (value (type fixed-array) param)
+ (declare (ignore param))
+ (unless (null-pointer-p value)
+ (foreign-free value)))
+
(define-g-boxed-cstruct rectangle "GdkRectangle"
(x :int :initform 0)
(y :int :initform 0)
(time :uint32)
(x :double)
(y :double)
- (axes (fixed-array :double 2))
+ (axes (fixed-array :double 7))
(state :uint)
(button :uint)
- (device (g-object device))
+ (device (g-object gdk-device))
(x-root :double)
(y-root :double))
((:scroll) event-scroll
(y :double)
(state modifier-type)
(direction scroll-direction)
- (device (g-object device))
+ (device (g-object gdk-device))
(x-root :double)
(y-root :double))
((:motion-notify) event-motion
(time :uint32)
(x :double)
(y :double)
- (axes (fixed-array :double 2))
+ (axes (fixed-array :double 7))
(state modifier-type)
(is-hint :int16)
(device (g-object gdk-device))
((:cffi visual colormap-visual (g-object visual)
"gdk_colormap_get_visual" nil)
(:cffi screen colormap-screen (g-object screen)
- "gdk_colormap_get_screeen" nil)))
+ "gdk_colormap_get_screen" nil)))
(define-g-object-class "GdkScreen" screen (:type-initializer "gdk_screen_get_type")
((font-options screen-font-options "font-options" "gpointer" t t)