main = do
  initGUI
  icon <- statusIconNewFromStock stockQuit
  statusIconSetVisible icon True
  statusIconSetTooltipText icon $ Just "This is a test"
  menu <- mkmenu icon
  on icon statusIconPopupMenu $ \b a -> do
         widgetShowAll menu
         print (b,a)
         menuPopup menu $ maybe Nothing (\b' -> Just (b',a)) b
  on icon statusIconActivate $ do
         putStrLn "'activate' signal triggered"
  mainGUI
main = do
  initGUI
  icon <- statusIconNewFromStock stockQuit
  statusIconSetVisible icon True
  statusIconSetTooltipText icon $ Just "This is a test"
  menu <- mkmenu icon
  on icon statusIconPopupMenu $ \b a -> do
         widgetShowAll menu
         print (b,a)
         menuPopup menu $ maybe Nothing (\b' -> Just (b',a)) b
  on icon statusIconActivate $ do
         putStrLn "'activate' signal triggered"
  mainGUI
main = do
  initGUI
  icon <- statusIconNewFromStock stockQuit
  statusIconSetVisible icon True
  statusIconSetTooltipText icon $ Just "This is a test"
  menu <- mkmenu icon
  on icon statusIconPopupMenu $ \b a -> do
         widgetShowAll menu
         print (b,a)
         menuPopup menu $ maybe Nothing (\b' -> Just (b',a)) b
  on icon statusIconActivate $ do
         putStrLn "'activate' signal triggered"
  mainGUI