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