<> <> <> <> 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.