From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 29 Oct 2009 15:08:10 +0000 (+0300)
Subject: Add gdk_pixbuf_new_from_file
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=be9ae8b3cab2485be1848023bf72cffca4a1632e;p=cl-gtk2.git

Add gdk_pixbuf_new_from_file
---

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index f400533..d97ea7a 100644
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -65,7 +65,7 @@
 
 (export 'drawable-size)
 
-(defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf)
+(defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf :already-referenced)
   (dest (g-object pixbuf))
   (src (g-object drawable))
   (colormap :pointer)
@@ -100,3 +100,13 @@
                     (null-pointer)))
 
 (export 'pixbuf-save)
+
+(defcfun gdk-pixbuf-new-from-file (g-object pixbuf :already-referenced)
+  (filename :string)
+  (error :pointer))
+
+(defun pixbuf-new-from-file (filename)
+  (glib:with-g-error (err)
+    (gdk-pixbuf-new-from-file filename err)))
+
+(export 'pixbuf-new-from-file)