[reactive] Re: GTK + Reactive

[Levi Stephen]

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 <levi.stephen at gmail.com>wrote:

> 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)
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/reactive/attachments/20081127/2ecec7eb/attachment-0001.htm