<> <> <> <> DIRECTORY Rope USING [ROPE]; PopUpMenu: CEDAR DEFINITIONS = BEGIN RequestSelection: PROC [ label: Rope.ROPE _ NIL, choice: LIST OF Rope.ROPE, default: NAT _ 0, mouse: REF _ NIL] RETURNS [NAT]; <<--returns 1 for first choice, 2 for second...>> <<--0 if selected outside menu or on title-line>> <<--default means: the cursor is initially moved to this line.>> <<--mouse to override mouseposition. See documentation for possible types.>> <<>> END.