mainhello2.hs

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

-- -----------------------------------------------------------------------
--
-- $Source: /repository/uni/htk/examples/simple/Mainhello2.hs,v $
--
-- HTk - a GUI toolkit for Haskell  -  (c) Universitaet Bremen
--
-- $Revision: 1.1 $ from $Date: 2002/02/25 21:50:58 $  
-- Last modification by $Author: cxl $
--
-- -----------------------------------------------------------------------

module Main (main) where

import HTk

main :: IO ()
main =
  do main <- initHTk [text "My second HTk Program"]

     mb <- createMenu main False []
     main # menu mb

     pulldown1 <- createMenuCascade mb [text "File"]

     m <- createMenu mb False []
     pulldown1 # menu m
     qb <- createMenuCommand m [text "Quit"]

     l <- newLabel main [text "Hello, world!", relief Groove,
                         tooltip "this is a label widget"]
     pack l [Side AtBottom, PadX 10, PadY 10]

     clickedqb <- clicked qb
     spawnEvent (clickedqb >>> destroy main)

     finishHTk