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<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>