main :: IO ()
main = runWebGUI $ \ webView -> do
    enableInspector webView
    Just doc <- webViewGetDomDocument webView
    Just dmiMain <- getElementById doc ("dmiMain" :: String)

    network <- compile $ do

      sd <- mkWidget dmiMain $ mkSpeedDial trainb
      windowMain <- mkWidget dmiMain $ mkStartupSequence trainb
--      let (eClose, eValue) = split . widgetEvent . fromWidgetInstance $ windowMain
--      _ <- execute $ fmap (const $ removeWidget windowMain) eClose
--      reactimate $ fmap print eValue


{-
      ovw <- mkOverrideWindow dmiMain (pure False)
      spw <- mkSpecialWindow dmiMain (pure False)
      sew <- mkSettingsWindow dmiMain (pure False)
      rcw <- mkRBCContactWindow dmiMain (pure False)
-}

      return ()

    actuate network
    print ("startup done" :: String)
    forever $ do
      threadDelay 10000000
main :: IO ()
main = runWebGUI $ \ webView -> do
    enableInspector webView
    Just doc <- webViewGetDomDocument webView
    Just dmiMain <- getElementById doc ("dmiMain" :: String)

    network <- compile $ do

      sd <- mkWidget dmiMain $ mkSpeedDial trainb
      windowMain <- mkWidget dmiMain $ mkStartupSequence trainb
--      let (eClose, eValue) = split . widgetEvent . fromWidgetInstance $ windowMain
--      _ <- execute $ fmap (const $ removeWidget windowMain) eClose
--      reactimate $ fmap print eValue


{-
      ovw <- mkOverrideWindow dmiMain (pure False)
      spw <- mkSpecialWindow dmiMain (pure False)
      sew <- mkSettingsWindow dmiMain (pure False)
      rcw <- mkRBCContactWindow dmiMain (pure False)
-}

      return ()

    actuate network
    print ("startup done" :: String)
    forever $ do
      threadDelay 10000000
main = runWebGUI $ \ webView -> do
    enableInspector webView
    Just doc <- webViewGetDomDocument webView
    Just dmiMain <- getElementById doc ("dmiMain" :: String)

    network <- compile $ do

      sd <- mkWidget dmiMain $ mkSpeedDial trainb
      windowMain <- mkWidget dmiMain $ mkStartupSequence trainb
--      let (eClose, eValue) = split . widgetEvent . fromWidgetInstance $ windowMain
--      _ <- execute $ fmap (const $ removeWidget windowMain) eClose
--      reactimate $ fmap print eValue


{-
      ovw <- mkOverrideWindow dmiMain (pure False)
      spw <- mkSpecialWindow dmiMain (pure False)
      sew <- mkSettingsWindow dmiMain (pure False)
      rcw <- mkRBCContactWindow dmiMain (pure False)
-}

      return ()

    actuate network
    print ("startup done" :: String)
    forever $ do
      threadDelay 10000000