PulldownMenu example

editMenu :: [MenuSpec Int]
editMenu =
 [MItem 1 (withColour red    (text "Undo")),
  MSep,
  MItem 2 (withColour blue   (text "Cut")),
  MItem 3 (withColour green  (text "Copy")),
  MItem 4 (withColour yellow (text "Paste")),
  MSep,
  MItem 5 (withColour black  (text "Find..")),
  MItem 6 (withColour gold   (text "Find again"))]

main = 
 wopen ["*name: Menu"]
       (pulldownMenu (text "Edit") editMenu) >>
 return ()