[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Display Image.chs,1.1,1.2

[Axel S. <as...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Display
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26947/gtk/Graphics/UI/Gtk/Display

Modified Files:
	Image.chs 
Log Message:
Added imageSetFromPixbuf


Index: Image.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Display/Image.chs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Image.chs	8 Jan 2005 15:14:30 -0000	1.1
+++ Image.chs	4 Feb 2005 11:14:56 -0000	1.2
@@ -49,6 +49,7 @@
   iconSizeDialog,
   imageNewFromStock,
   imageGetPixbuf,
+  imageSetFromPixbuf,
   imageNewFromPixbuf
   ) where
 
@@ -90,6 +91,11 @@
   {#call unsafe image_get_pixbuf#} img
 
 
+-- | Overwrite the current content of the 'Image' with a new 'Pixbuf'.
+--
+imageSetFromPixbuf :: Image -> Pixbuf -> IO ()
+imageSetFromPixbuf img pb = {#call unsafe gtk_image_set_from_pixbuf#} img pb
+
 -- | Create an 'Image' from a 
 -- 'Pixbuf'.
 --