[Gtk2hs-commit] (0.9.12 branch): Ugg, unbreak SOE in the non-threaded rts case.

[Duncan C. <dun...@wo...>]

Sat Jun 30 09:22:14 PDT 2007  Duncan Coutts <du...@ha...>
  * Ugg, unbreak SOE in the non-threaded rts case.

    hunk ./TODO 16
    -	* make SOE give an error in GHCi since it uses threads.
    -
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 91
    -import Control.Concurrent (forkIO, yield)
    +import Control.Concurrent (forkIO, yield, rtsSupportsBoundThreads)
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 110
    -  Gtk.mainGUI
    +  if rtsSupportsBoundThreads
    +    then Gtk.mainGUI
    +    else let loop = do
    +               yield
    +               quit <- Gtk.mainIteration
    +               if quit then return ()
    +                       else loop
    +          in do loop
    +                -- give any windows a chance to close
    +                Gtk.flush