-- TEditScrolling.mesa; Edited by Paxton on December 28, 1982 2:11 pm
DIRECTORY
TEditSelection USING [pSel],
TEditDocument USING [SelectionId],
TextNode USING [Location],
ViewerClasses USING [ScrollProc, Viewer];
TEditScrolling: CEDAR DEFINITIONS IMPORTS TEditSelection = BEGIN OPEN ViewerClasses;
ScrollTEditDocument: ScrollProc ;
ScrollToPosition: PROC [viewer: Viewer, pos: TextNode.Location, offset: BOOLEAN ← TRUE] ;
AutoScroll:
PROC [
viewer: Viewer ← TEditSelection.pSel.viewer,
tryToGlitch: BOOLEAN ← TRUE,
toEndOfDoc: BOOLEAN ← FALSE,
id: TEditDocument.SelectionId ← primary] ;
END.