PopUpSelectionImplWithX.mesa
Copyright Ó 1988, 1989, 1991 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, April 21, 1988 2:49:13 pm PDT
Christian Jacobi, March 7, 1991 9:54 pm PST
DIRECTORY
PopUpSelection,
Rope,
RuntimeError,
Xl,
X11PopUpSelection,
X11ViewersAccess;
PopUpSelectionImplWithX: CEDAR PROGRAM
IMPORTS RuntimeError, X11PopUpSelection, X11ViewersAccess
EXPORTS PopUpSelection
SHARES X11ViewersAccess
~ BEGIN
Request: PUBLIC 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
] RETURNS [sel: INT] = {
c: Xl.Connection ¬ X11ViewersAccess.CurrentConnection[];
sel ¬ X11PopUpSelection.Request[header, choice, headerDoc, choiceDoc, default, timeOut, position, c !
RuntimeError.UNCAUGHT --connection died-- => {sel ¬ default; CONTINUE}
];
};
END.