<> <> <> <> DIRECTORY TEditDocument USING [SelectionId], TextNode USING [Location], ViewerClasses USING [ScrollProc, Viewer]; TEditScrolling: CEDAR DEFINITIONS = BEGIN Viewer: TYPE ~ ViewerClasses.Viewer; ScrollTEditDocument: ViewerClasses.ScrollProc; ScrollToPosition: PROC [viewer: Viewer, pos: TextNode.Location, offset: BOOL _ TRUE]; AutoScroll: PROC [viewer: Viewer _ NIL, tryToGlitch: BOOL _ TRUE, toEndOfDoc: BOOL _ FALSE, id: TEditDocument.SelectionId _ primary]; <> <<>> END.