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, 1991 by Xerox Corporation. All rights reserved. Michael Plass, February 12, 1988 4:19:35 pm PST Κ–(cedarcode) style•NewlineDelimiter ™codešœ™Kšœ Οeœ7™BK™/K™—šΟk ˜ Kšœžœ˜"Kšœžœžœ˜—K˜KšΠlnœžœž ˜%šœž˜K˜šœ Οc<˜\K˜—šœžœ L˜XK˜—Kšœ˜šœ žœ˜Kšœ '˜-Kšœ ˜#Kšœ ˜$K˜K˜—Kšœ˜šœ žœ˜Kšœ ˜Kšœ  ˜'Kšœ  ˜)K˜K˜—Kšœ˜šœ žœ˜Kšœ ˜Kšœ  $˜-Kšœ (˜,K˜K˜—šœžœ˜K˜—Kšœ˜šœ žœ˜/K˜——Kšžœ˜—…—x™