<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 &lt;- mkUpdater (cGetTime clock) (return () `stepper` quitOnDestory windowDestroy)<br>
<br>idleAdd (updater &gt;&gt; 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">&lt;<a href="mailto:levi.stephen@gmail.com" target="_blank">levi.stephen@gmail.com</a>&gt;</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&#39;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&#39;t work for me.<br>




<br>I&#39;m sure I&#39;ve probably missed something, but I&#39;m not sure what.<br><br>Thanks,<br>Levi<br><br>main = do<br> &nbsp;initGUI<br><br> &nbsp;clock &lt;- makeClock<br><br> &nbsp;(windowDestroy, sink) &lt;- makeEvent clock<br>



<br>
 &nbsp;w &lt;- windowNew<br> &nbsp;w `onDestroy` sink ()<br> &nbsp;widgetShowAll w<br><br> &nbsp;-- 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> &nbsp;mainGUI<br><br>quitOnDestroy :: Event () -&gt; Event (IO ())<br>quitOnDestroy e = fmap (const mainQuit) e<br>
<br>tSync :: Clock TimeT-&gt; ITime -&gt; IO ()<br>tSync clock t = sleepPast (cGetTime clock) (exact t)<br><br>
</blockquote></div><br>
</div></div></div><br>