Update of /cvsroot/gtk2hs/gtk2hs/gtk/abstract
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22901/gtk/abstract
Modified Files:
Container.chs
Log Message:
Removed support for versions of ghc pre 5.04. ghc 5.04 supports the new FFI
syntax so remove old-style "foreign export dynamic" versions.
Tested with ghc 5.04 & 5.04.3
Index: Container.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/Container.chs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Container.chs 4 Aug 2004 18:41:43 -0000 1.8
+++ Container.chs 10 Aug 2004 14:51:47 -0000 1.9
@@ -108,18 +108,9 @@
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
-
-- | Returns the the container's children.
--
containerGetChildren :: ContainerClass c => c -> IO [Widget]
|
