-- -----------------------------------------------------------------------
--
-- $Source: /repository/uni/htk/test/MainwithdrawConfigTest.hs,v $
--
-- HTk - a GUI toolkit for Haskell  -  (c) Universitaet Bremen
--
-- $Revision: 1.3 $ from $Date: 2001/12/29 13:59:20 $  
-- Last modification by $Author: ludi $
--
-- -----------------------------------------------------------------------

import HTk

main :: IO ()
main =
  do
    htk <- initHTk [withdrawMainWin]
    t <- createToplevel [text "not the main window"]
    b <- newButton t [text "Quit"]
    pack b []
    clickedb <- clicked b
    spawnEvent (clickedb >>> destroy htk)
    finishHTk
