TEditInputBackdoor.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, February 12, 1988 4:19:35 pm PST
DIRECTORY
TEditDocument USING [SelectionId],
Rope USING [ROPE];
TEditInputBackdoor: CEDAR DEFINITIONS
~ BEGIN
sel: TEditDocument.SelectionId; -- global sel ID; can be set to "secondary" by $SelSecondary
pDel: BOOL; -- global sel ID; can be set to TRUE by $SelPendDel, FALSE by $SelNotPendDel
editObject: EditObject;
EditObject: TYPE = {
text, -- operate on the text of the selection
looks, -- operate on the looks only
format -- operate on the format only
};
selState: SelState;
SelState: TYPE = {
reset, -- not specified yet
primary, -- making a primary selection
secondary -- making a secondary selection
};
pdelState: PDelState;
PDelState: TYPE = {
reset, -- not specified yet
pending, -- making a pending delete selection
not -- making a not-pending-delete selection
};
editMessage: Rope.ROPE;
mouseColor: MouseColor;
MouseColor: TYPE = { red, yellow, blue, dead };
END.