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 (defcfun gdk-gc-new (g-object graphics-context :already-referenced)
23 (drawable (g-object drawable)))
25 (defcfun gdk-draw-line :void
26 (drawable (g-object drawable))
27 (gc (g-object graphics-context))
33 (defcfun gdk-gc-set-rgb-fg-color :void
34 (gc (g-object graphics-context))
35 (color (g-boxed-foreign color)))
37 (defcfun gdk-drawable-get-size :void
38 (drawable (g-object drawable))
39 (width (:pointer :int))
40 (height (:pointer :int)))
42 (defun drawable-get-size (drawable)
43 (with-foreign-objects ((x :int)
45 (gdk-drawable-get-size drawable x y)
46 (values (mem-ref x :int) (mem-ref y :int))))
48 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
50 (defcfun gdk-draw-layout :void
51 (drawable (g-object drawable))
52 (gc (g-object graphics-context))
55 (layout (g-object pango-layout)))
57 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
60 (defcfun gdk-atom-intern gdk-atom
62 (only-if-exists :boolean))
64 (export 'drawable-size)
66 (defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf)
67 (dest (g-object pixbuf))
68 (src (g-object drawable))
77 (defun pixbuf-get-from-drawable (pixbuf drawable &key (src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -1) (height -1))
78 (gdk-pixbuf-get-from-drawable pixbuf drawable (null-pointer) src-x src-y dest-x dest-y width height))
80 (export 'pixbuf-get-from-drawable)
82 (defcfun gdk-pixbuf-savev :boolean
83 (pixbuf (g-object pixbuf))
86 (option-keys (:pointer (:pointer :char)))
87 (option-values (:pointer (:pointer :char)))
90 (defun pixbuf-save (pixbuf filename type)
91 (gdk-pixbuf-savev pixbuf
94 (pathname (namestring filename)))
100 (export 'pixbuf-save)