-- TiogaScrolling.mesa; Edited by Paxton on June 13, 1983 9:29 am
DIRECTORY
TiogaSelection USING [pSel],
TiogaDocument USING [SelectionId],
TiogaNode USING [Location],
ViewerClasses USING [ScrollProc, Viewer];
TiogaScrolling: CEDAR DEFINITIONS IMPORTS TiogaSelection = BEGIN OPEN ViewerClasses;
ScrollTiogaDocument: ScrollProc ;
ScrollToPosition: PROC [viewer: Viewer, pos: TiogaNode.Location, offset: BOOLEAN ← TRUE] ;
AutoScroll:
PROC [
viewer: Viewer ← TiogaSelection.pSel.viewer,
tryToGlitch: BOOLEAN ← TRUE,
toEndOfDoc: BOOLEAN ← FALSE,
id: TiogaDocument.SelectionId ← primary] ;
END.