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