TEditTouchup.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Edited by Paxton on October 27, 1982 1:54 pm
Doug Wyatt, March 3, 1985 1:44:00 pm PST
DIRECTORY
Rope USING [ROPE],
TEditDocument USING [TEditDocumentData];
TEditTouchup: CEDAR DEFINITIONS
= BEGIN
ROPE: TYPE ~ Rope.ROPE;
TEditDocumentData: TYPE ~ TEditDocument.TEditDocumentData;
fullUpdate: REF ANY; -- use as whatChanged to paint all linked viewers
refresh: REF ANY; -- use as whatChanged refresh viewer after edits
Use $ShowPSel as whatChanged to get pSel redisplayed. Similarly for $ShowSSel.
PreScrollDownRec:
TYPE =
RECORD [
lines: INTEGER, -- number of lines that will be added at top of viewer
distance: INTEGER -- number of scan lines to move down
];
RefreshOver: PROC;
LockAfterRefresh: PROC [tdd: TEditDocumentData, who: ROPE] RETURNS [ok: BOOL];
LockAfterScroll:
PROC [tdd: TEditDocumentData, who:
ROPE]
RETURNS [ok:
BOOL];
Locks the tdd.
UnlockAfterRefresh: PROC [tdd: TEditDocumentData];
END.