I'm glad you got it sorted out. Thanks for sharing the answer with us. We'll get a rationale & useful set of tools together, sooner or later.<br><br> - Conal<br><br><div class="gmail_quote">2008/11/26 Levi Stephen <span dir="ltr"><<a href="mailto:levi.stephen@gmail.com">levi.stephen@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><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 class="Ih2E3d"><div><div></div><div><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></div><br>
<br>_______________________________________________<br>
Reactive mailing list<br>
<a href="mailto:Reactive@haskell.org">Reactive@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/reactive" target="_blank">http://www.haskell.org/mailman/listinfo/reactive</a><br>
<br></blockquote></div><br>