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

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

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

Modified Files:
	Image.chs 
Log Message:
Make compile on Windows against Gtk 2.6.1. All functions that pass filenames
were redefined to a name that ends in _utf8. Added preprocessor magic to
circumvent this. Furthermore added --subsystem windows as a linker flag
whenever the gtk package is used during linking. This prevents a console
window from opening.


Index: Image.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Display/Image.chs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Image.chs	4 Feb 2005 11:14:56 -0000	1.2
+++ Image.chs	13 Feb 2005 16:25:56 -0000	1.3
@@ -1,25 +1,139 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 -- -*-haskell-*-
 --  GIMP Toolkit (GTK) Widget Image
 --
 --  Author : Axel Simon
---          
+--
 --  Created: 23 May 2001
 --
 --  Version $Revision$ from $Date$
 --
---  Copyright (c) 1999..2002 Axel Simon
+--  Copyright (C) 2001-2005 Axel Simon
 --
---  This file is free software; you can redistribute it and/or modify
---  it under the terms of the GNU General Public License as published by
---  the Free Software Foundation; either version 2 of the License, or
---  (at your option) any later version.
+--  This library is free software; you can redistribute it and/or
+--  modify it under the terms of the GNU Lesser General Public
+--  License as published by the Free Software Foundation; either
+--  version 2.1 of the License, or (at your option) any later version.
 --
---  This file is distributed in the hope that it will be useful,
+--  This library is distributed in the hope that it will be useful,
 --  but WITHOUT ANY WARRANTY; without even the implied warranty of
---  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
---  GNU General Public License for more details.
+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+--  Lesser General Public License for more details.
 --
 -- |
+-- Maintainer  : gtk...@li...
+-- Stability   : provisional
+-- Portability : portable (depends on GHC)
 --
 -- This widget displays an image.
 --
@@ -73,8 +187,12 @@
 --
 imageNewFromFile :: FilePath -> IO Image
 imageNewFromFile path = makeNewObject mkImage $ liftM castPtr $ 
+
+
+
   withUTFString path {#call unsafe image_new_from_file#}
 
+
 -- | Create a set of images by specifying a stock
 -- object.
 --