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.
--
|
