XlCutBuffersBackdoor.mesa
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, March 21, 1991 9:50:03 am PST
Christian Jacobi, March 21, 1991 10:44 am PST
DIRECTORY Xl;
XlCutBuffersBackdoor: CEDAR DEFINITIONS
~ BEGIN OPEN Xl;
Friends interface to XlCutBuffers. This interface is used to register new XlCutBuffers conventions. Avoid importing this interface if you can.
A new registration overwrites the previous one.
Procedures might be un-monitored; restrict usage to module initializations.
PutProc: TYPE = PROC [c: Connection, data: ROPE, convention: ATOM ¬ NIL];
GetProc: TYPE = PROC [c: Connection, convention: ATOM ¬ NIL] RETURNS [ROPE];
RegisterPutProc: PROC [convention: ATOM, put: PutProc];
RegisterGetProc: PROC [convention: ATOM, get: GetProc];
END.