+(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)
+ (:cffi foreground graphics-context-foreground (g-boxed-foreign color)
+ nil "gdk_gc_set_foreground")
+ (:cffi background graphics-context-background (g-boxed-foreign color)
+ nil "gdk_gc_set_background")
+ (:cffi rgb-fg-color graphics-context-rgb-fg-color (g-boxed-foreign color)
+ nil "gdk_gc_set_rgb_fg_color")
+ (:cffi rgb-bg-color graphics-context-rgb-bg-color (g-boxed-foreign color)
+ nil "gdk_gc_set_rgb_bg_color")
+ (:cffi font graphics-context-font (g-boxed-foreign font)
+ nil "gdk_gc_set_font")
+ (:cffi function graphics-context-function gdk-function
+ nil "gdk_gc_set_function")
+ (:cffi fill graphics-context-fill gdk-fill
+ nil "gdk_gc_set_fill")
+ (:cffi tile graphics-context-tile (g-object pixmap)
+ nil "gdk_gc_set_tile")
+ (:cffi stipple graphics-context-stipple (g-object pixmap)
+ nil "gdk_gc_set_stipple")
+ (:cffi clip-mask graphics-context-clip-mask (g-object pixmap)
+ nil "gdk_gc_set_clip_mask")
+ (:cffi clip-rectangle graphics-context-clip-rectangle (g-boxed-foreign rectangle)
+ nil "gdk_gc_set_clip_rectangle")
+ (:cffi clip-region graphics-context-clip-region (g-boxed-foreign region)
+ nil "gdk_gc_set_clip_region")
+ (:cffi subwindow graphics-context-subwindow subwindow-mode
+ nil "gdk_gc_set_subwindow")
+ (:cffi exposures graphics-context-exposures :boolean
+ nil "gdk_gc_set_exposures")
+ (:cffi colormap graphics-context-colormap (g-object colormap)
+ "gdk_gc_get_colormap" "gdk_gc_set_colormap")))
+
+(define-g-object-class "GdkDrawable" drawable ()
+ ((:cffi display drawable-display (g-object display)
+ "gdk_drawable_get_display" nil)
+ (:cffi screen drawable-screen (g-object screen)
+ "gdk_drawable_get_screen" nil)
+ (:cffi visual drawable-visual (g-object visual)
+ "gdk_drawable_get_visual" nil)
+ (:cffi colormap drawable-colormap (g-object colormap)
+ "gdk_drawable_get_colormap" "gdk_drawable_set_colormap")
+ (:cffi depth drawable-depth :int
+ "gdk_drawable_get_depth" nil)
+ (:cffi clip-region drawable-clip-region (g-boxed-foreign region :return)
+ "gdk_drawable_get_clip_region" nil)
+ (:cffi visible-region drawable-visible-region (g-boxed-foreign region :return)
+ "gdk_drawable_get_visible_region" nil)))