TEditScrolling.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Edited by Paxton on December 28, 1982 2:11 pm
Doug Wyatt, March 3, 1985 1:38:49 pm PST
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];
If viewer=NIL, uses the viewer containing the primary selection.
END.