import Graphics.UI.FLTK
import System

ent s = (s,\_ -> message s)
ae m s t = addC m s "" (\_ -> message s) t

main = do w <- newWindow 0 0 300 200 [label := "foo"]
	  m <- newMenuBar 0 0 300 30 []
	  addL m [("&File/Hello",\_ -> message "Hello world"),
		  ("File/Quit", \_ -> exitWith ExitSuccess),
		  ent "F&oo/B&ar", ent "Foo/Bar/Baz", ent "Foo/Bar/Nana",
		  ent "Foo/Tutu"]
	  ae m "&Attr/Default" mDefault
	  ae m "&Attr/Inactive" mInactive
	  ae m "&Attr/Toggle" mToggle
	  ae m "&Attr/Value" mValue
	  ae m "&Attr/Divider" mDivider
	  ae m "&Attr/Default2" mDefault
	  ae m "&Attr/Default3" mDefault
	  run w