[Gtk2hs-commit] gtk2hs/gtk/abstract Container.chs,1.5,1.6

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/abstract
In directory sc8-pr-cvs1:/tmp/cvs-serv28798/gtk/abstract

Modified Files:
	Container.chs 
Log Message:
Fix warning about deprecated FFI construct for GHC 6.0.


Index: Container.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/Container.chs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Container.chs	9 Jul 2003 22:42:43 -0000	1.5
+++ Container.chs	21 Oct 2003 21:28:53 -0000	1.6
@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
 -- -*-haskell-*-
 --  GIMP Toolkit (GTK) @entry Widget Container@
 --
@@ -106,8 +107,17 @@
 type ContainerForeachCB = Widget -> IO ()
 {#pointer Callback#}
 
+#if __GLASGOW_HASKELL__>=600
+
+foreign import ccall "wrapper" mkContainerForeachFunc ::
+  (Ptr Widget -> Ptr () -> IO ()) -> IO Callback
+
+#else
+
 foreign export dynamic mkContainerForeachFunc ::
   (Ptr Widget -> Ptr () -> IO ()) -> IO Callback
+
+#endif
 
 -- @method containerFocus@ Give the focus to the container.
 -- * The @ref arg direction@ argument determines what kind of focus