<div class="gmail_quote"><br>Hi,<br><br>This is no longer a problem I managed to get this working by adding the following lines:<br><br><div>updater <- mkUpdater (cGetTime clock) (return () `stepper` quitOnDestory windowDestroy)<br>
<br>idleAdd (updater >> return True)<br>
</div><div><br></div>Levi<div><div></div><div class="Wj3C7c"><br><br><div class="gmail_quote">On Mon, Nov 24, 2008 at 10:30 PM, Levi Stephen <span dir="ltr"><<a href="mailto:levi.stephen@gmail.com" target="_blank">levi.stephen@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left:1px solid rgb(204, 204, 204);margin:0pt 0pt 0pt 0.8ex;padding-left:1ex">
Hi,<br><br>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.<br>
<br>I'm sure I've probably missed something, but I'm not sure what.<br><br>Thanks,<br>Levi<br><br>main = do<br> initGUI<br><br> clock <- makeClock<br><br> (windowDestroy, sink) <- makeEvent clock<br>
<br>
w <- windowNew<br> w `onDestroy` sink ()<br> widgetShowAll w<br><br> -- forkE (tSync clock) $ quitOnDestroy windowDestroy</blockquote><blockquote class="gmail_quote" style="border-left:1px solid rgb(204, 204, 204);margin:0pt 0pt 0pt 0.8ex;padding-left:1ex">
<br><br> mainGUI<br><br>quitOnDestroy :: Event () -> Event (IO ())<br>quitOnDestroy e = fmap (const mainQuit) e<br>
<br>tSync :: Clock TimeT-> ITime -> IO ()<br>tSync clock t = sleepPast (cGetTime clock) (exact t)<br><br>
</blockquote></div><br>
</div></div></div><br>