@@ -24,7 +24,7 @@ import Graphics.UI.Gtk
2424import Control.Concurrent
2525 (tryTakeMVar, forkIO, newMVar, putMVar, takeMVar, newEmptyMVar,
2626 yield)
27−import System.Glib.MainLoop (priorityHigh)
27+import System.Glib.MainLoop (priorityLow)
2828import Graphics.UI.Gtk.General.Enums (WindowPosition(..))
2929import Graphics.UI.Gtk.WebKit.WebView
3030 (webViewGetMainFrame, webViewNew)
@@ -75,7 +75,7 @@ testJSaddle' showWindow f = do
7575 debugLog "windowNew"
7676 window <- windowNew
7777 debugLog "timeoutAdd"
78− timeoutAddFull (yield >> return True) priorityHigh 10
78+ timeoutAddFull (yield >> return True) priorityLow 10
7979 windowSetDefaultSize window 900 600
8080 windowSetPosition window WinPosCenter
8181 scrollWin <- scrolledWindowNew Nothing Nothing