3 (defcfun (default-screen "gdk_screen_get_default") (g-object gdk-screen))
4 (export 'default-screen)
6 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
9 (defcfun gdk-atom-intern gdk-atom
11 (only-if-exists :boolean))
13 (defcfun gdk-pixbuf-savev :boolean
14 (pixbuf (g-object pixbuf))
17 (option-keys (:pointer (:pointer :char)))
18 (option-values (:pointer (:pointer :char)))
21 (defun pixbuf-save (pixbuf filename type)
22 (gdk-pixbuf-savev pixbuf
25 (pathname (namestring filename)))
33 (defcfun gdk-pixbuf-new-from-file (g-object pixbuf :already-referenced)
37 (defun pixbuf-new-from-file (filename)
38 (glib:with-g-error (err)
39 (gdk-pixbuf-new-from-file filename err)))
41 (export 'pixbuf-new-from-file)