(export (boxed-related-symbols 'trapezoid))
+(define-g-boxed-cstruct rectangle "GdkRectangle"
+ (x :int :initform 0)
+ (y :int :initform 0)
+ (width :int :initform 0)
+ (height :int :initform 0))
+
+(export (boxed-related-symbols 'rectangle))
+
+(define-g-boxed-opaque font "GdkFont"
+ :alloc (error "GDK:FONT objects may not be allocated directly"))
+
+(export (boxed-related-symbols 'font))
+
+(define-g-boxed-cstruct color "GdkColor"
+ (pixel :uint32 :initform 0)
+ (red :uint16 :initform 0)
+ (green :uint16 :initform 0)
+ (blue :uint16 :initform 0))
+
+(export (boxed-related-symbols 'color))
+
(define-g-object-class "GdkGC" graphics-context ()
((:cffi screen graphics-context-screen (g-object screen)
"gdk_gc_get_screen" nil)
:south-east
:static)
-(define-g-boxed-cstruct rectangle "GdkRectangle"
- (x :int :initform 0)
- (y :int :initform 0)
- (width :int :initform 0)
- (height :int :initform 0))
-
-(export (boxed-related-symbols 'rectangle))
-
-(define-g-boxed-opaque font "GdkFont"
- :alloc (error "GDK:FONT objects may not be allocated directly"))
-
-(export (boxed-related-symbols 'font))
-
-(define-g-boxed-cstruct color "GdkColor"
- (pixel :uint32 :initform 0)
- (red :uint16 :initform 0)
- (green :uint16 :initform 0)
- (blue :uint16 :initform 0))
-
-(export (boxed-related-symbols 'color))
-
(define-g-boxed-cstruct geometry "GdkGeometry"
(min-width :int :initform 0)
(min-height :int :initform 0)
(:superclass g-object :export t :interfaces
nil :type-initializer
"gdk_image_get_type")
- nil)
+ ((:cffi colormap gdk-image-colormap (g-object gdk-colormap)
+ "gdk_image_get_colormap" "gdk_image_set_colormap")))
+
+(define-g-enum "GdkImageType"
+ gdk-image-type
+ (:export t :type-initializer "gdk_image_type_get_type")
+ (:normal 0)
+ (:shared 1)
+ (:fastest 2))
+
+(define-g-enum "GdkPixbufAlphaMode"
+ pixbuf-alpha-mode
+ (:export t :type-initializer "gdk_pixbuf_alpha_mode_get_type")
+ (:bilevel 0)
+ (:full 1))
+