@@ -25,6 +25,7 @@ module Reflex.Dom.Old
2525 , elWith'
2626 , emptyElWith
2727 , emptyElWith'
28+ , getQuitWidget
2829 , namedNodeMapGetNames
2930 , nodeClear
3031 , onEventName
@@ -59,6 +60,7 @@ import qualified GHCJS.DOM.Types as DOM
5960import Reflex
6061import Reflex.Dom.Builder.Class
6162import Reflex.Dom.Builder.Immediate
63+import Reflex.Dom.Internal.Foreign
6264import Reflex.Dom.PerformEvent.Class
6365import Reflex.Dom.PostBuild.Class
6466import Reflex.Dom.Widget.Basic
@@ -236,3 +238,7 @@ nodeClear n = do
236238 Just fc -> do
237239 _ <- removeChild n $ Just fc
238240 nodeClear n
241+
242+getQuitWidget :: MonadWidget t m => m (WidgetHost m ())
243+getQuitWidget = return $ do WebViewSingleton wv <- askWebView
244+ liftIO $ quitWebView wv