[reactive] Re: [Haskell-beginners] GTK + Reactive

[Bas van Dijk]

CCing this to the Reactive mailinglist.
See: http://www.haskell.org/mailman/listinfo/reactive

Bas

On Mon, Nov 24, 2008 at 1:00 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)
>
>
> _______________________________________________
> Beginners mailing list
> Beginners at haskell.org
> http://www.haskell.org/mailman/listinfo/beginners
>
>