@@ -18,7 +18,7 @@ module Main (
1818import Prelude hiding((!!), catch)
1919import Graphics.UI.Gtk
2020 (Window, widgetDestroy, postGUIAsync, postGUISync, widgetShowAll,
21− mainGUI, mainQuit, on, destroyEvent, containerAdd, scrolledWindowNew,
21+ mainGUI, mainQuit, on, objectDestroy, containerAdd, scrolledWindowNew,
2222 windowSetPosition, windowSetDefaultSize, timeoutAddFull, windowNew,
2323 initGUI)
2424import Control.Concurrent
@@ -82,7 +82,7 @@ testJSC' showWindow f = do
8282 webView <- webViewNew
8383 window `containerAdd` scrollWin
8484 scrollWin `containerAdd` webView
85− on window destroyEvent . liftIO $ do
85+ on window objectDestroy $ do
8686 debugLog "onDestroy"
8787 tryTakeMVar state
8888 debugLog "put state"