[Gtk2hs-commit] Make soegtk work with the threaded RTS

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

Thu Jun 28 09:41:22 PDT 2007  Duncan Coutts <du...@ha...>
  * Make soegtk work with the threaded RTS
  So it should work in GHCi

    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 108
    -  Gtk.initGUI
    +  Gtk.unsafeInitGUIForThreadedRTS
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 144
    -openWindowEx title position size (RedrawMode useDoubleBuffer) timer = do
    +openWindowEx title position size (RedrawMode useDoubleBuffer) timer =
    +  Gtk.postGUISync $ do
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 260
    -getWindowSize win = Gtk.widgetGetSize (canvas win)
    +getWindowSize win = Gtk.postGUISync $ Gtk.widgetGetSize (canvas win)
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 268
    -  Gtk.widgetQueueDraw (canvas win)
    +  Gtk.postGUIAsync $ Gtk.widgetQueueDraw (canvas win)
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 276
    -  Gtk.widgetQueueDraw (canvas win)
    +  Gtk.postGUIAsync $ Gtk.widgetQueueDraw (canvas win)
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 279
    -closeWindow win = Gtk.widgetHide (window win)
    +closeWindow win = Gtk.postGUIAsync $ Gtk.widgetHide (window win)
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 696
    -    MouseMove _ -> Gtk.widgetGetDrawWindow (canvas win)
    +    MouseMove _ -> Gtk.postGUIAsync $
    +                   Gtk.widgetGetDrawWindow (canvas win)
    hunk ./soegtk/Graphics/SOE/Gtk.hs.pp 709
    -                        MouseMove _ -> Gtk.widgetGetDrawWindow (canvas win)
    +                        MouseMove _ -> Gtk.postGUIAsync $
    +                                       Gtk.widgetGetDrawWindow (canvas win)