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. Τ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 Κi–(cedarcode) style•NewlineDelimiter ˜šœ™Icodešœ Οeœ=™HKšœ7Οk™:K™,—K˜šž ˜ Kšœ˜Kšœ˜Kšœ ˜ Kšœ˜Kšœ˜Kšœ˜K˜—šΟnœžœž˜&Kšžœ2˜9Kšžœ˜Kšžœ˜—šœžœ˜K˜—š(Ÿœžœžœžœžœ žœžœžœžœžœ žœžœžœžœ žœžœžœžœžœžœ˜άK˜8˜eKšœ žœΟcœžœ˜GKšœ˜—Kšœ˜—K˜Kšžœ˜K˜—…—Ζ