@@ -25,7 +25,8 @@ import GHCJS.DOM.Window
2525import System.Directory
2626import qualified GI.Gtk.Functions as Gtk (init, main)
2727import GI.WebKit2
28− (webViewLoadUri, webViewLoadHtml, webViewGetInspector,
28+ (settingsSetEnableAccelerated2dCanvas, webInspectorShow,
29+ webViewLoadUri, webViewLoadHtml, webViewGetInspector,
2930 onWebViewLoadChanged, webViewSetSettings,
3031 settingsSetEnableDeveloperExtras, settingsSetUserAgent,
3132 settingsGetUserAgent, webViewGetSettings, webViewNew, WebView)
@@ -71,19 +72,22 @@ runWebGUI main = do
7172 putStrLn "forking server!"
7273 _ <- forkIO $ run 3706 $ do
7374 ctx <- askJSM
74− liftIO $ forkIO $ forever $ do
75− threadDelay 1000000
76− runJSM syncPoint ctx
77−-- liftIO $ threadDelay 20000000
78−-- idleAdd PRIORITY_DEFAULT $ do
79− liftIO $ main (webView, ctx)
80− liftIO $ putStrLn "main exited"
75+-- liftIO $ forkIO $ forever $ do
76+-- threadDelay 1000000
77+-- runJSM syncPoint ctx
78+ liftIO $ threadDelay 2000000
79+ idleAdd PRIORITY_DEFAULT $ do
80+ liftIO $ main (webView, ctx)
81+ liftIO $ putStrLn "main exited"
82+ return False
8183 -- return False
8284 forever $ do
8385 liftIO $ threadDelay 100000
86+ runJSM syncPoint ctx
8487 settings <- webViewGetSettings webView
8588 -- TODO settingsSetEnableUniversalAccessFromFileUris settings True
8689 settingsSetEnableDeveloperExtras settings True
90+ settingsSetEnableAccelerated2dCanvas settings False
8791 webViewSetSettings webView settings
8892 window `containerAdd` scrollWin
8993 scrollWin `containerAdd` webView
@@ -93,6 +97,7 @@ runWebGUI main = do
9397-- -- TODO run jsaddle.js when load is finished
9498-- return ()
9599 inspector <- webViewGetInspector webView
100+ webInspectorShow inspector
96101-- _ <- inspector `on` inspectWebView $ \_ -> do
97102-- inspectorWindow <- windowNew
98103-- windowSetDefaultSize inspectorWindow 900 600