[Cyan]<CedarChest6.1>PopUpMenu>PopUpMenuTest.cm!1

PopUpMenuTest.cm

Last Edited by: Christian Jacobi, August 20, 1986 3:52:07 pm PDT

← &s ← RopeList.Append[LIST["a", "b", "c", "d", "e"], NIL];

← &h ← RopeList.Append[LIST["help outside", "help-a", "help-b", "help-c", "help-d", "help-d"], NIL];

← PopUpMenu.RequestSelection[label: "label", choice: &s, default: 0, timeOut: 200, mouse: &h]