{- A simple menu example, using the HTkMenu interface -}module Main(main) whereimport Computationimport Eventsimport Destructibleimport HTk hiding (Menu)import MenuTypeimport HTkMenumain :: IO ()main =   do      top <- initHTk [text "Menu"]      let         (simpleMenu :: HTkMenu Char) =            HTkMenu(               Menu "Names" [                  Button "Andromecha" 'A',                  Button "Bendickt" 'B',                  Button "Cordelia" 'C',                  Button "Duncan" 'D',                  Blank,                  Menu "More names" [                     Button "Elinor" 'E',                     Button "Ferdinand" 'F'                     ],                  Blank,                  Button "Quit" 'Q'                  ])      (menuButton,event) <- compileHTkMenu top simpleMenu       pack menuButton []      let         eventHandler =            do               ch <- event               always (putStrLn ("Got "++[ch]))               case ch of                  'Q' -> done                  _ -> eventHandler      sync eventHandler      cleanupWish