<> <> <> <> <<>> DIRECTORY Xl; X11SelectionRequestor: CEDAR DEFINITIONS ~ BEGIN <> <<>> <> <> <> <> Result: TYPE = {ok, none, timeout}; <> <> <> <> <> <<>> SelectionReceivedProc: TYPE = PROC [selection: Xl.XAtom, target: Xl.XAtom, result: Result, value: LIST OF REF ANY, type: Xl.XAtom, format: BYTE, clientData: REF]; <> <> <> <> <> <> <<>> SelectionSetupProc: TYPE = PROC [selection: Xl.XAtom, target: Xl.XAtom, window: Xl.Window, property: Xl.XAtom, clientData: REF, connection: Xl.Connection]; <> <> <> <> Request: TYPE = RECORD [target: Xl.XAtom, callback: SelectionReceivedProc ¬ NIL, clientData: REF ¬ NIL, setUp: SelectionSetupProc ¬ NIL]; <> <<>> RequestList: TYPE = LIST OF Request; <> GetSelection: PROC [c: Xl.Connection, selection: Xl.XAtom ¬ [1], timeStamp: Xl.TimeStamp, request: Request, tq: Xl.TQ ¬ NIL, timeout: INT ¬ 0]; <> <> <> <> <> <> <> <> <> <> GetSelectionMultiple: PROC [c: Xl.Connection, selection: Xl.XAtom ¬ [1], timeStamp: Xl.TimeStamp, requests: RequestList, tq: Xl.TQ ¬ NIL, timeout: INT ¬ 0]; <> END.