3 (defcfun (default-screen "gdk_screen_get_default") (g-object gdk-screen
))
4 (export 'default-screen
)
6 (defcfun (default-display "gdk_display_get_default") (g-object display
))
7 (export 'default-display
)
9 (defcfun gdk-window-get-events event-mask
10 (window (g-object gdk-window
)))
12 (defcfun gdk-window-set-events
:void
13 (window (g-object gdk-window
))
16 (defun gdk-window-events (window)
17 (gdk-window-get-events window
))
19 (defun (setf gdk-window-events
) (new-value window
)
20 (gdk-window-set-events window new-value
))
22 (export 'gdk-window-events
)
24 (defcfun gdk-gc-new
(g-object graphics-context
:already-referenced
)
25 (drawable (g-object drawable
)))
27 (defcfun gdk-draw-line
:void
28 (drawable (g-object drawable
))
29 (gc (g-object graphics-context
))
35 (defcfun gdk-gc-set-rgb-fg-color
:void
36 (gc (g-object graphics-context
))
37 (color (g-boxed-foreign color
)))
39 (defcfun gdk-drawable-get-size
:void
40 (drawable (g-object drawable
))
41 (width (:pointer
:int
))
42 (height (:pointer
:int
)))
44 (defun drawable-get-size (drawable)
45 (with-foreign-objects ((x :int
)
47 (gdk-drawable-get-size drawable x y
)
48 (values (mem-ref x
:int
) (mem-ref y
:int
))))
50 (export 'drawable-get-size
)
52 (defcfun gdk-draw-layout
:void
53 (drawable (g-object drawable
))
54 (gc (g-object graphics-context
))
57 (layout (g-object pango-layout
)))
59 (defcfun gdk-atom-name
(glib:g-string
:free-from-foreign t
)
62 (defcfun gdk-atom-intern gdk-atom
64 (only-if-exists :boolean
))
66 (export 'drawable-size
)
68 (defcfun gdk-pixbuf-get-from-drawable
(g-object pixbuf
)
69 (dest (g-object pixbuf
))
70 (src (g-object drawable
))
79 (defun pixbuf-get-from-drawable (pixbuf drawable
&key
(src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -
1) (height -
1))
80 (gdk-pixbuf-get-from-drawable pixbuf drawable
(null-pointer) src-x src-y dest-x dest-y width height
))
82 (export 'pixbuf-get-from-drawable
)
84 (defcfun gdk-pixbuf-savev
:boolean
85 (pixbuf (g-object pixbuf
))
88 (option-keys (:pointer
(:pointer
:char
)))
89 (option-values (:pointer
(:pointer
:char
)))
92 (defun pixbuf-save (pixbuf filename type
)
93 (gdk-pixbuf-savev pixbuf
96 (pathname (namestring filename
)))
102 (export 'pixbuf-save
)