PopUpMenu.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Ch. Jacobi, August 3, 1983 9:47 am
last edited by Ch. Jacobi, September 12, 1985 9:52:02 am PDT
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.