PopupMenu example

popupMenu :: Text a => [a] -> a -> Component (Trigger a, DisplayHandle)

main =
 wopen ["*name: PopupMenu"] (popupMenu  [1..10] 1) >>
 return ()