[Gtk2hs-commit] gtk2hs/gtk/abstract FileChooser.chs,1.8,1.9

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/abstract
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv358/gtk/abstract

Modified Files:
	FileChooser.chs 
Log Message:
Axel's patches to get the build to work for gtk-2.2, exclude new module bodies
so c2hs doesn't see the new functions, and change the way _stub.o files are
found so we don't try to link non-existant ones.
Everything should build for gtk-2.0 and gtk-2.2 now.


Index: FileChooser.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/FileChooser.chs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- FileChooser.chs	3 Aug 2004 02:36:39 -0000	1.8
+++ FileChooser.chs	8 Aug 2004 19:04:38 -0000	1.9
@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
 -- GIMP Toolkit (GTK) Binding for Haskell: binding to GConf   -*-haskell-*-
 --    for storing and retrieving configuartion information
 --
@@ -29,7 +30,10 @@
 -- * Added in GTK+ 2.4
 --
 
+#include<gtk/gtkversion.h>
+
 module FileChooser (
+#if GTK_CHECK_VERSION(2,4,0)
   FileChooserClass,
   FileChooser,
   FileChooserAction(..),
@@ -85,8 +89,11 @@
 --  afterSelectionChanged,
   onUpdatePreview,
   afterUpdatePreview
+#endif
 ) where
 
+#if GTK_CHECK_VERSION(2,4,0)
+
 import Monad (liftM, when)
 import FFI
 {#import Hierarchy#}
@@ -363,3 +370,6 @@
 toStringGSList strs = do
   strPtrs <- mapM newCString strs
   toGSList strPtrs
+
+#endif
+