
DIRECTORY
CedarProcess USING [SetPriority],
MonitoredQueue USING [Create, MQ, Remove],
Process USING [Detach, MsecToTicks, SetTimeout],
Rope USING [ROPE],
TEditDocument USING [GetViewerForRoot, SelectionId, SpinAndLock, TEditDocumentData, Unlock],
TEditRefresh USING [],
TEditTouchup USING [],
TextNode USING [Ref],
ViewerClasses USING [Viewer],
ViewerForkers USING [ForkPaint];

TEditTouchupImpl: CEDAR MONITOR
IMPORTS CedarProcess, MonitoredQueue, Process, TEditDocument, ViewerForkers
EXPORTS TEditRefresh, TEditTouchup
= BEGIN

fullUpdate: PUBLIC REF ANY м $Update;
refresh: PUBLIC REF ANY м $Refresh;

RefreshOver: PUBLIC ENTRY PROC = { ENABLE UNWIND => NULL; BROADCAST refreshOver };

LockAfterScroll: PUBLIC PROC [tdd: TEditDocument.TEditDocumentData, who: Rope.ROPE] RETURNS [ok: BOOL] = {
RETURN [LockAfter[tdd, who, TRUE]];
};

LockAfterRefresh: PUBLIC PROC [tdd: TEditDocument.TEditDocumentData, who: Rope.ROPE] RETURNS [ok: BOOL] = {
RETURN [LockAfter[tdd, who, FALSE]];
};

LockAfter: PROC [tdd: TEditDocument.TEditDocumentData, who: Rope.ROPE, scroll: BOOL] RETURNS [ok: BOOL м TRUE] = {
[] м TEditDocument.SpinAndLock[tdd, "LockAfterRefresh"];
SELECT TRUE FROM
NOT tdd.dirty => ok м TRUE;
alwaysOK => ok м TRUE;
NOT scroll OR tdd.scroll=no => ok м FALSE;
ENDCASE => ok м TRUE;
IF NOT ok THEN TEditDocument.Unlock[tdd];
};

alwaysOK: BOOL м FALSE;

UnlockAfterRefresh: PUBLIC PROC [tdd: TEditDocument.TEditDocumentData] = {
IF tdd#NIL THEN TEditDocument.Unlock[tdd];
};

refreshOver: CONDITION; -- Init below
maxCount: NAT м 0;
dirtyDocs: PUBLIC MonitoredQueue.MQ м MonitoredQueue.Create[];

Refresh: PROC = {
CedarProcess.SetPriority[normal];
DO
WITH MonitoredQueue.Remove[dirtyDocs] SELECT FROM
doc: TextNode.Ref => {
viewer: ViewerClasses.Viewer м TEditDocument.GetViewerForRoot[doc];
IF viewer # NIL THEN
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData =>
FOR v: ViewerClasses.Viewer м viewer, v.link WHILE v # NIL DO
IF NOT v.iconic AND NOT v.destroyed THEN
ViewerForkers.ForkPaint[v, client, FALSE, refresh, TRUE];
IF v.link = viewer THEN EXIT;
ENDLOOP;
ENDCASE;
};
ENDCASE;
ENDLOOP;
};

ScrollToEndOfDoc: PUBLIC PROC [viewer: ViewerClasses.Viewer, glitch: BOOL] = {
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData => {
tdd.scroll м endofdoc;
tdd.scrollGlitch м glitch;
};
ENDCASE;
};

ScrollToEndOfSel: PUBLIC PROC [viewer: ViewerClasses.Viewer, glitch: BOOL, id: TEditDocument.SelectionId м primary] = {
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData => {
tdd.scroll м endofsel;
tdd.scrollGlitch м glitch;
tdd.scrollSelectionId м id;
};
ENDCASE;
};

TRUSTED {
Process.SetTimeout[@refreshOver, Process.MsecToTicks[50]];
Process.Detach[FORK Refresh[]];
};

END.  
  .  
TEditTouchupImpl.mesa
Copyright ╙ 1985, 1987, 1991 by Xerox Corporation.  All rights reserved.
Paxton on May 23, 1983 11:27 am
Maxwell, January 6, 1983 11:38 am
Russ Atkinson (RRA) June 4, 1985 1:20:12 am PDT
Michael Plass, October 15, 1987 5:24:26 pm PDT
TEditRefresh implementation 
Startup 
 Э╩Н  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ=ЩHKЪЬЩKЩ!KЩ/KЩ.ЧKШ Ъ╧k	Ш	KЪЬЮЬШ!KЪЬЮЬ
ЮЬ
Ш*KЪЬЮЬ#Ш0KЪЬЮЬЮЬШKЪЬЮЬIШ\KЪЬЮЬШKЪЬЮЬШKЪЬ	ЮЬШKЪЬЮЬ
ШKЪЬЮЬШ KШ ЧKЪ╨lnЬЮШKЪЮЬDШKKЪЮЬШ"ЪЬЮШKШ KЪЬЮЬЮЬЮЬШ%KЪЬ	ЮЬЮЬЮЬШ#KШ Ъ╧nЬЮЬЮЬЮЬЮЬЮЬЮЬЮ
ЬШRKШ ЧЪаЬЮЬЮЬ2ЮЬЮЬЮЬШjKЪЮЬЮЬШ#KЪЬШKШ ЧЪаЬЮЬЮЬ2ЮЬЮЬЮЬШkKЪЮЬЮЬШ$KЪЬШKШ ЧЪа	ЬЮЬ2ЮЬ
ЮЬЮЬЮЬЮЬШrKЪЬ8Ш8ЪЮЬЮЬЮШKЪЮЬЮЬШKЪЬЮЬШKЪЮЬЮЬЮЬШ*KЪЮЬ	ЮЬШЧKЪЮЬЮЬЮЬШ)KШKШ ЧKЪЬ
ЮЬЮЬШKШ ЪаЬЮЬ+ШJKЪЮЬЮЬЮЬШ*KЪЬШЧKШ KЪЬЮ	Ь╧cШ%KЪЬ
ЮЬШЧheadЩЪЬЮЬЮЬШ>KШ ЧЪаЬЮЬШKЪЬ!Ш!ЪЮШЪЮЬ"ЮЬЮШ1ЪЬШKЪЬCШCЪЮЬ
ЮЬЮШЪЮЬЮЬЮШЪЬ'Ш'ЪЮЬ*ЮЬЮЬЮШ=Ъ	ЮЬЮЬ
ЮЬЮЬЮШ(KЪЬ#ЮЬЮЬШ9ЧKЪЮЬЮЬЮЬШKЪЮЬШЧЧKЪЮЬШЧЧKШЧKЪЮЬШЧKЪЮЬШЧKЪЬШЧKШ ЪаЬЮЬЮЬ(ЮЬШNЪЮЬЮЬЮШЪЬ)Ш)KЪЬШKЪЬШKШЧKЪЮЬШЧKЪЬШKШ ЧЪаЬЮЬЮЬ(ЮЬ.ШwЪЮЬЮЬЮШЪЬ)Ш)KЪЬШKЪЬШKЪЬШKШЧKЪЮЬШЧKЪЬШKШ ЧЧЩЪЮЬШ	KЪЬ:Ш:KЪЬЮЬШKЪЬШЧKШ ЧKЪЮЬШЧ ЕЧ    
┤  o  