main =
wopen []
(\dc ->
menuElement (text "Option-1") () dc >>= \ (_,dh1) ->
menuElement (text "Option-2") () dc >>= \ (_,dh2) ->
menuElement (text "Quit") () dc >>= \ (_,dh3) ->
return ((),vbox [dh1,dh2,dh3])) >>
return ()

If the mouse button is released on top of a MenuElement, the element will outputs a click value.