-- TEditDisplay.mesa; Edited by Paxton on May 21, 1982 8:50 am
DIRECTORY
TEditDocument USING [TEditDocumentData],
TextNode USING [Location, Ref, Span],
ViewerClasses USING [Viewer];
TEditDisplay: CEDAR DEFINITIONS = BEGIN
EstablishLine:
PROC [
tdd: TEditDocument.TEditDocumentData,
newLine: TextNode.Location,
position: INTEGER ← 0] ;
InvalidateSpan:
PROC [viewer: ViewerClasses.Viewer, span: TextNode.Span,
errorFlag: BOOL ← TRUE, movingOut, unnesting: BOOL ← FALSE];
InvalidateChildren: PROC [viewer: ViewerClasses.Viewer, node: TextNode.Ref];
InvalidateBranch: PROC [viewer: ViewerClasses.Viewer, node: TextNode.Ref];
END.