X11PopUpSelection.mesa
Copyright Ó 1988, 1990, 1991 by Xerox Corporation. All rights reserved.
Christian Jacobi, June 29, 1988 5:54:41 pm PDT
Christian Jacobi, March 5, 1990 3:20:57 pm PST
DIRECTORY
Rope USING [ROPE];
X11PopUpSelection: CEDAR DEFINITIONS
~ BEGIN
Package which implements a pop-up menu abstraction.
Request: PROC [header: Rope.ROPE ¬ NIL, choice: LIST OF Rope.ROPE,
headerDoc: Rope.ROPE ¬ NIL, choiceDoc: LIST OF Rope.ROPE ¬ NIL,
default: NAT ¬ 0, timeOut: NAT ¬ 0, position: REF ¬ NIL,
connection: REF ¬ NIL
] RETURNS [INT];
Shows a pop-up menu and returns the number of the selected entry.
returns: 1 for first choice, 2 for second...
 0 if selected outside menu or on header-line
 -1 if timed out
header:  Header text; can not be selected.
choice:  List of possible selections.
headerDoc: Documentation shown if selection is on header or outside menu.
choiceDoc: Documentation for the corresponding choice.
default:  Hint for initial selection by implicit mouse movement. 0 if no default.
timeOut:  In seconds; 0 for no time out.
position:  Hint to override mouse position. See documentation for possible types.
connection:  X11.connection / XTk.Widget
Procedure must not be called from inside a viewers-repaint or a TIP-notify procedure.
There might be a maximum number of choices, see documentation.
END.