Index: TclCompatibilityGhcSupportsConcurrency.hs
===================================================================
RCS file: /home/foo/TclHaskell1.2/src/TclCompatibilityGhcSupportsConcurrency.hs,v
retrieving revision 1.1
retrieving revision 1.4
diff -r1.1 -r1.4
0a1
> {-# OPTIONS -#include "Check.h" -#include "tclhaskell.h" #-}
22,25c23,26
<   p <- isOnlyProcess
<   if p then
<      T.primRunTcl
<    else do
---
> --   p <- isOnlyProcess
> --   if p then
> --      T.primRunTcl
> --    else do
27,28c28,31
<      if any then primCheckAnyWindowsTcl
<       else do yield;primRunTcl
---
>      if any <= 0
> 	then do threadWaitRead (- (fromIntegral any))
> 		primRunTcl
> 	else primCheckAnyWindowsTcl
Index: TclGUI.hs
===================================================================
RCS file: /home/foo/TclHaskell1.2/src/TclGUI.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
0a1
> {-# OPTIONS -#include "tclhaskell.h" #-}
Index: TclPrim.hs
===================================================================
RCS file: /home/foo/TclHaskell1.2/src/TclPrim.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
131,135c131,132
< primRunNonBlockingTcl :: IO Bool
< primRunNonBlockingTcl =
<   do
<     o_primRunNonBlockingTcl <- prim_TclPrim_primRunNonBlockingTcl
<     unmarshallBool o_primRunNonBlockingTcl
---
> primRunNonBlockingTcl :: IO Int32
> primRunNonBlockingTcl = prim_TclPrim_primRunNonBlockingTcl
Index: TclPrimGhc.hs
===================================================================
RCS file: /home/foo/TclHaskell1.2/src/TclPrimGhc.hs,v
retrieving revision 1.1
retrieving revision 1.4
diff -r1.1 -r1.4
22a23
>        , primDoOneEvent
45c46
<    len = Word.intToWord32 (length str + 1)
---
>    len = fromIntegral (length str + 1)
73c74
< foreign import  "readCharOffAddr" prim_readCharOffAddr :: Addr.Addr -> Int.Int32 -> IO Char
---
> foreign import  ccall "readCharOffAddr" prim_readCharOffAddr :: Addr.Addr -> Int.Int32 -> IO Char
83c84
< foreign import  "writeCharOffAddr" prim_writeCharOffAddr :: Addr.Addr -> Int.Int32 -> Char -> IO ()
---
> foreign import ccall  "writeCharOffAddr" prim_writeCharOffAddr :: Addr.Addr -> Int.Int32 -> Char -> IO ()
88c89
< foreign import  "primMalloc" prim_primMalloc :: Word.Word32 -> IO Addr.Addr
---
> foreign import ccall  "primMalloc" prim_primMalloc :: Word.Word32 -> IO Addr.Addr
94c95
< foreign import  "primFree" prim_primFree :: Addr.Addr -> IO ()
---
> foreign import ccall  "primFree" prim_primFree :: Addr.Addr -> IO ()
103c104
< foreign import  "primPutEnv" prim_primPutEnv :: Addr.Addr -> IO ()
---
> foreign import ccall  "primPutEnv" prim_primPutEnv :: Addr.Addr -> IO ()
111c112
< foreign import  "primTclDebug" prim_primTclDebug :: Int.Int32 -> IO ()
---
> foreign import ccall  "primTclDebug" prim_primTclDebug :: Int.Int32 -> IO ()
118c119
< foreign import  "primInitTcl" prim_primInitTcl :: IO Int.Int32
---
> foreign import ccall  "primInitTcl" prim_primInitTcl :: IO Int.Int32
125,130c126,131
< foreign import  "primRunTcl" prim_primRunTcl :: IO Int.Int32
< primRunNonBlockingTcl :: IO Bool
< primRunNonBlockingTcl =
<   do
<     o_primRunNonBlockingTcl <- prim_primRunNonBlockingTcl
<     unmarshallBool o_primRunNonBlockingTcl
---
> foreign import ccall  "primRunTcl" prim_primRunTcl :: IO Int.Int32
> primRunNonBlockingTcl :: IO Int.Int32
> primRunNonBlockingTcl = prim_primRunNonBlockingTcl
> 
> foreign import ccall  "primRunNonBlockingTcl" prim_primRunNonBlockingTcl :: IO Int.Int32
> foreign import ccall  "primDoOneEvent" primDoOneEvent :: IO ()
132d132
< foreign import  "primRunNonBlockingTcl" prim_primRunNonBlockingTcl :: IO Int.Int32
139c139
< foreign import  "primRunOnceTcl" prim_primRunOnceTcl :: IO Int.Int32
---
> foreign import ccall  "primRunOnceTcl" prim_primRunOnceTcl :: IO Int.Int32
150c150
< foreign import  "primExecuteTcl" prim_primExecuteTcl :: Addr.Addr -> IO Addr.Addr
---
> foreign import ccall  "primExecuteTcl" prim_primExecuteTcl :: Addr.Addr -> IO Addr.Addr
159c159
< foreign import  "primExecuteTcl_" prim_primExecuteTcl_ :: Addr.Addr -> IO ()
---
> foreign import ccall  "primExecuteTcl_" prim_primExecuteTcl_ :: Addr.Addr -> IO ()
166c166
< foreign import  "primGetEvent" prim_primGetEvent :: IO Addr.Addr
---
> foreign import ccall  "primGetEvent" prim_primGetEvent :: IO Addr.Addr
178c178
< foreign import  "primSetVar" prim_primSetVar :: Addr.Addr -> Addr.Addr -> IO ()
---
> foreign import ccall  "primSetVar" prim_primSetVar :: Addr.Addr -> Addr.Addr -> IO ()
185c185
< foreign import  "primCheckAnyWindowsTcl" prim_primCheckAnyWindowsTcl :: IO Int.Int32
---
> foreign import ccall  "primCheckAnyWindowsTcl" prim_primCheckAnyWindowsTcl :: IO Int.Int32
Index: tclhaskell.c
===================================================================
RCS file: /home/foo/TclHaskell1.2/src/tclhaskell.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -r1.1 -r1.3
286a287,289
>     if (anyevents <= 0)
>       { return (-ConnectionNumber (Tk_Display(Tk_MainWindow(interp))));
>       }
287a291,295
> }
> 
> void primDoOneEvent (void) {
>   Tcl_DoOneEvent(TCL_DONT_WAIT);
>   XPending(Tk_Display(Tk_MainWindow(interp)));
Index: tclhaskell.h
===================================================================
RCS file: /home/foo/TclHaskell1.2/src/tclhaskell.h,v
retrieving revision 1.1
retrieving revision 1.3
diff -r1.1 -r1.3
17a18,19
> int primXPending(void);
> void primDoOneEvent(void);