3 (defcfun gdk-window-get-events event-mask
4 (window (g-object gdk-window)))
6 (defcfun gdk-window-set-events :void
7 (window (g-object gdk-window))
10 (defun gdk-window-events (window)
11 (gdk-window-get-events window))
13 (defun (setf gdk-window-events) (new-value window)
14 (gdk-window-set-events window new-value))
16 (defcfun gdk-gc-new (g-object graphics-context)
17 (drawable (g-object drawable)))
19 (defcfun gdk-draw-line :void
20 (drawable (g-object drawable))
21 (gc (g-object graphics-context))
27 (defcfun gdk-gc-set-rgb-fg-color :void
28 (gc (g-object graphics-context))
29 (color (g-boxed-ptr color)))
31 (defcfun gdk-drawable-get-size :void
32 (drawable (g-object drawable))
33 (width (:pointer :int))
34 (height (:pointer :int)))
36 (defun drawable-get-size (drawable)
37 (with-foreign-objects ((x :int)
39 (gdk-drawable-get-size drawable x y)
40 (values (mem-ref x :int) (mem-ref y :int))))
42 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
44 (defcfun gdk-draw-layout :void
45 (drawable (g-object drawable))
46 (gc (g-object graphics-context))
49 (layout (g-object pango-layout)))
51 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
54 (defcfun gdk-atom-intern gdk-atom
56 (only-if-exists :boolean))
58 (export 'drawable-size)
60 (defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf)
61 (dest (g-object pixbuf))
62 (src (g-object drawable))
71 (defun pixbuf-get-from-drawable (pixbuf drawable &key (src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -1) (height -1))
72 (gdk-pixbuf-get-from-drawable pixbuf drawable (null-pointer) src-x src-y dest-x dest-y width height))
74 (export 'pixbuf-get-from-drawable)
76 (defcfun gdk-pixbuf-savev :boolean
77 (pixbuf (g-object pixbuf))
80 (option-keys (:pointer (:pointer :char)))
81 (option-values (:pointer (:pointer :char)))
84 (defun pixbuf-save (pixbuf filename type)
85 (gdk-pixbuf-savev pixbuf
88 (pathname (namestring filename)))