DIRECTORY TEditDocument USING [TEditDocumentData], TextLooks USING [Looks, noLooks], TextNode USING [Location, Node], ViewerClasses USING [Viewer]; TEditViewer: CEDAR DEFINITIONS = BEGIN Selection: TYPE = REF SelectionRec; SelectionRec: TYPE = RECORD [ viewer: ViewerClasses.Viewer, data: TEditDocument.TEditDocumentData, start: SelectionPoint, end: SelectionPoint, caretX, caretY: INTEGER, granularity: SelectionGrain, punctuation: PunctuationPosition, -- whether spaces are part of the selection insertion: BeforeAfter, looks: TextLooks.Looks _ TextLooks.noLooks, -- caret looks pendingDelete: BOOL _ FALSE -- Laurel-style pending deletion of selection ]; SelectionPoint: TYPE = RECORD [ pos: TextNode.Location, line: INTEGER _ 0, x: INTEGER _ 0, y: INTEGER _ 0, w: INTEGER _ 0, h: INTEGER _ 0, clipped: BOOL _ FALSE, metricsValid: BOOL _ FALSE ]; SelectionGrain: TYPE = {point, char, word, node, branch} _ char; PunctuationPosition: TYPE = {none, leading, trailing} _ none; BeforeAfter: TYPE = {before, after} _ before; RecordViewerForRoot: PROC [viewer: ViewerClasses.Viewer, root: TextNode.Node]; ForgetViewer: PROC [viewer: ViewerClasses.Viewer]; GetViewerForRoot: PROC [root: TextNode.Node] RETURNS [viewer: ViewerClasses.Viewer]; END. ®TEditViewer.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Doug Wyatt, September 2, 1986 1:36:32 pm PDT remove this from the root => viewer mapping ÊÚ˜codešœ™Kšœ Ïmœ1™