PopUpMenu.mesa
By Ch. Jacobi August 3, 1983 9:47 am
last edited by Ch. Jacobi August 5, 1983 5:13 pm
DIRECTORY
Rope USING [ROPE];
PopUpMenu: CEDAR DEFINITIONS =
BEGIN
RequestSelection:
PROC [
label: Rope.ROPE ← NIL,
choice: LIST OF Rope.ROPE,
default: CARDINAL ← 0]
RETURNS [CARDINAL];
--returns 1 for first choice, 2 for second...
--0 if selected outside menu or on title-line
END.