From: Duncan C. <dun...@us...> - 2004-08-08 19:04:46
|
Update of /cvsroot/gtk2hs/gtk2hs/gtk/misc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv358/gtk/misc Modified Files: FileChooserWidget.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: FileChooserWidget.chs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/misc/FileChooserWidget.chs,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- FileChooserWidget.chs 23 May 2004 16:07:53 -0000 1.2 +++ FileChooserWidget.chs 8 Aug 2004 19:04:37 -0000 1.3 @@ -1,3 +1,4 @@ +{-# OPTIONS -cpp #-} -- -*-haskell-*- -- GIMP Toolkit (GTK) entry Widget FileChooserWidget -- @@ -26,15 +27,20 @@ -- -- * Added in GTK+ 2.4 -- +#include<gtk/gtkversion.h> module FileChooserWidget ( +#if GTK_CHECK_VERSION(2,4,0) FileChooserWidgetClass, FileChooserWidget, FileChooserAction, fileChooserWidgetNew, fileChooserWidgetNewWithBackend, +#endif ) where +#if GTK_CHECK_VERSION(2,4,0) + import Monad (liftM) import FFI import Object @@ -59,3 +65,5 @@ withCString backend $ \strPtr -> {# call unsafe gtk_file_chooser_widget_new_with_backend #} (fromIntegral $ fromEnum action) strPtr + +#endif |