3 (defcfun (default-screen "gdk_screen_get_default") (g-object gdk-screen))
4 (export 'default-screen)
6 (defcfun gdk-window-get-events event-mask
7 (window (g-object gdk-window)))
9 (defcfun gdk-window-set-events :void
10 (window (g-object gdk-window))
13 (defun gdk-window-events (window)
14 (gdk-window-get-events window))
16 (defun (setf gdk-window-events) (new-value window)
17 (gdk-window-set-events window new-value))
19 (export 'gdk-window-events)
21 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
24 (defcfun gdk-atom-intern gdk-atom
26 (only-if-exists :boolean))
28 (defcfun gdk-pixbuf-savev :boolean
29 (pixbuf (g-object pixbuf))
32 (option-keys (:pointer (:pointer :char)))
33 (option-values (:pointer (:pointer :char)))
36 (defun pixbuf-save (pixbuf filename type)
37 (gdk-pixbuf-savev pixbuf
40 (pathname (namestring filename)))
48 (defcfun gdk-pixbuf-new-from-file (g-object pixbuf :already-referenced)
52 (defun pixbuf-new-from-file (filename)
53 (glib:with-g-error (err)
54 (gdk-pixbuf-new-from-file filename err)))
56 (export 'pixbuf-new-from-file)