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. ŒTEditInputBackdoor.mesa Copyright Σ 1988 by Xerox Corporation. All rights reserved. Michael Plass, February 12, 1988 4:19:35 pm PST Κ\˜codešœ™K™