Hi,
This is no longer a problem I managed to get this working by adding the
following lines:
updater <- mkUpdater (cGetTime clock) (return () `stepper` quitOnDestory
windowDestroy)
idleAdd (updater >> return True)
Levi
On Mon, Nov 24, 2008 at 10:30 PM, Levi Stephen
Hi,
I'm trying to set up a simple program combining Reactive and GTK. I have the program below so far, but mainQuit is never called. After looking at a couple of adapters I tried adding the commented out line, but this didn't work for me.
I'm sure I've probably missed something, but I'm not sure what.
Thanks, Levi
main = do initGUI
clock <- makeClock
(windowDestroy, sink) <- makeEvent clock
w <- windowNew w `onDestroy` sink () widgetShowAll w
-- forkE (tSync clock) $ quitOnDestroy windowDestroy
mainGUI
quitOnDestroy :: Event () -> Event (IO ()) quitOnDestroy e = fmap (const mainQuit) e
tSync :: Clock TimeT-> ITime -> IO () tSync clock t = sleepPast (cGetTime clock) (exact t)