@@ -18,7 +18,7 @@ module Main (
18import Prelude hiding((!!), catch)
18import Prelude hiding((!!), catch)
19import Graphics.UI.Gtk
19import Graphics.UI.Gtk
20 (Window, widgetDestroy, postGUIAsync, postGUISync, widgetShowAll,
20 (Window, widgetDestroy, postGUIAsync, postGUISync, widgetShowAll,
21− mainGUI, mainQuit, on, destroyEvent, containerAdd, scrolledWindowNew,
21+ mainGUI, mainQuit, on, objectDestroy, containerAdd, scrolledWindowNew,
22 windowSetPosition, windowSetDefaultSize, timeoutAddFull, windowNew,
22 windowSetPosition, windowSetDefaultSize, timeoutAddFull, windowNew,
24import Control.Concurrent
24import Control.Concurrent
@@ -82,7 +82,7 @@ testJSC' showWindow f = do
82 webView <- webViewNew
82 webView <- webViewNew
83 window `containerAdd` scrollWin
83 window `containerAdd` scrollWin
84 scrollWin `containerAdd` webView
84 scrollWin `containerAdd` webView
85− on window destroyEvent . liftIO $ do
85+ on window objectDestroy $ do
86 debugLog "onDestroy"
86 debugLog "onDestroy"
87 tryTakeMVar state
87 tryTakeMVar state
88 debugLog "put state"
88 debugLog "put state"