PopUpMenuDoc.tioga
Christian Jacobi, May 23, 1985 2:05:46 pm PDT
PopUpMenu
CEDAR 6.0 — FOR INTERNAL XEROX USE ONLY
PopUpMenu
Christian Jacobi
© Copyright 1985 Xerox Corporation. All rights reserved.
Abstract: package which implements pop up menus.
Created by: Christian Jacobi
Maintained by: Christian Jacobi <Jacobi.pa>
Keywords: popup, menu
XEROX Xerox Corporation
Palo Alto Research Center
3333 Coyote Hill Road
Palo Alto, California 94304
For Internal Xerox Use Only
1. Usage
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 below for possible types.
When the procedure RequestSelection is called a pop up menu appears at the position of the mouse. The selection is made by releasing a mouse button. (If necessary pressing a mouse button down first).
Press a second mouse button down to move the menu to a different position.
mouse parameter:
NIL: Default, use the current mouse position. But: If the time since the last call finished is short enough, the menu will appear at exactly the same location as the previous menu. This allows imlementation of nested menus without moving around on the sceen.
$Mouse: Use the current mouse position.
TIPUser.TIPScreenCoords: Use this position. [0,0] is lower left (of device)
REF Interminal.MousePosition: Use this position. [0,0] is upper left (of device).
2. User Profile Options
with their default values:
PopUpMenu.FontFamily: "Helvetica"
PopUpMenu.FontSize: 10
PopUpMenu.FontBold: TRUE
PopUpMenu.FontItalic: FALSE
PopUpMenu.LineHeightChange: 0