<> <> <> <> DIRECTORY Rope USING [ROPE]; PopUpMenu: CEDAR DEFINITIONS = BEGIN RequestSelection: PROC [ label: Rope.ROPE _ NIL, choice: LIST OF Rope.ROPE, default: NAT _ 0, timeOut: NAT _ 0, mouse: REF _ NIL ] RETURNS [INT]; <<--returns: 1 for first choice, 2 for second...>> <<-- 0 if selected outside menu or on title-line>> <<-- -1 if time out>> <<--label: header text; can not be selected.>> <<--choice: list of possible selections.>> <<--default: the cursor might be initially moved to this line.>> <<--timeOut: in seconds; 0 for no time out.>> <<--mouse: to override mouse position. See documentation for possible types.>> <<--Procedure must not be called from inside a viewers-repaint or a TIP-notify procedure.>> <<>> END.