TEditScrolling.mesa
Copyright Ó 1985, 1986, 1991, 1992 by Xerox Corporation. All rights reserved.
Edited by Paxton on December 28, 1982 2:11 pm
Doug Wyatt, January 30, 1992 6:47 pm PST
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];
If viewer=NIL, uses the viewer containing the primary selection.
END.