mainsimplemenu.hs

来自「HTK系列的」· HS 代码 · 共 46 行

{- A simple menu example, using the HTkMenu interface -}
module Main(main) where

import Computation

import Events
import Destructible

import HTk hiding (Menu)
import MenuType
import HTkMenu

main :: 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