-(defcfun gdk-gc-new (g-object graphics-context)
- (drawable (g-object drawable)))
-
-(defcfun gdk-draw-line :void
- (drawable (g-object drawable))
- (gc (g-object graphics-context))
- (x1 :int)
- (y1 :int)
- (x2 :int)
- (y2 :int))
-
-(defcfun gdk-gc-set-rgb-fg-color :void
- (gc (g-object graphics-context))
- (color (g-boxed-foreign color)))
-
-(defcfun gdk-drawable-get-size :void
- (drawable (g-object drawable))
- (width (:pointer :int))
- (height (:pointer :int)))
-
-(defun drawable-get-size (drawable)
- (with-foreign-objects ((x :int)
- (y :int))
- (gdk-drawable-get-size drawable x y)
- (values (mem-ref x :int) (mem-ref y :int))))
-
-(define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
-
-(defcfun gdk-draw-layout :void
- (drawable (g-object drawable))
- (gc (g-object graphics-context))
- (x :int)
- (y :int)
- (layout (g-object pango-layout)))