DIRECTORYTEditRefresh,MonitoredQueue USING [Create, MQ, Remove],Process USING [Detach, SetPriority, priorityNormal],TEditDocument USING [GetViewerForRoot, SelectionId, TEditDocumentData],TEditLocks USING [LockDocAndTdd, UnlockDocAndTdd],TextNode USING [pZone, Ref],TEditTouchup USING [refresh, RefreshOver],ViewerClasses USING [Viewer],ViewerOps USING [PaintViewer];TEditRefreshImpl: CEDAR MONITORIMPORTS MonitoredQueue, Process, TextNode, TEditDocument, TEditLocks, TEditTouchup, ViewerOpsEXPORTS TEditRefresh = BEGINdirtyDocs: PUBLIC MonitoredQueue.MQ _ MonitoredQueue.Create[TextNode.pZone];processCount, scrollProcessCount: INTEGER _ 0;maxProcesses: INTEGER = 10; -- max number of concurrent refresh processesdone: CONDITION;DecCount: ENTRY PROC = {processCount _ processCount-1; NOTIFY done };Refresh: PROC = {	TRUSTED {Process.SetPriority[Process.priorityNormal]};DOdoc: TextNode.Ref;viewer: ViewerClasses.Viewer;RefreshIt: ENTRY PROC [viewer: ViewerClasses.Viewer] = {WHILE processCount >= maxProcesses DO WAIT done; ENDLOOP;processCount _ processCount+1;TRUSTED {Process.Detach[FORK RefreshViewer[viewer ! ABORTED => CONTINUE]]} };doc _ NARROW[MonitoredQueue.Remove[dirtyDocs]];viewer _ TEditDocument.GetViewerForRoot[doc];IF viewer=NIL THEN LOOP;RefreshIt[viewer];IF viewer.link # NIL THENFOR v: ViewerClasses.Viewer _ viewer.link, v.link UNTIL v=viewer DORefreshIt[v]; ENDLOOP;ENDLOOP };RefreshViewer: PROC [viewer: ViewerClasses.Viewer] = {tdd: TEditDocument.TEditDocumentData = NARROW[viewer.data];IF tdd = NIL THEN RETURN;[] _ TEditLocks.LockDocAndTdd[tdd, "RefreshViewer", read];tdd.invisible _ TRUE; -- will be reset by our paint proc if it is calledViewerOps.PaintViewer[viewer, client, FALSE, TEditTouchup.refresh];IF tdd.invisible THEN TEditTouchup.RefreshOver[];DecCount[];TEditLocks.UnlockDocAndTdd[tdd] };ScrollToEndOfDoc: PUBLIC PROC [viewer: ViewerClasses.Viewer, glitch: BOOL] = {tdd: TEditDocument.TEditDocumentData = NARROW[viewer.data];tdd.scroll _ endofdoc; tdd.scrollGlitch _ glitch };ScrollToEndOfSel: PUBLIC PROC [viewer: ViewerClasses.Viewer, glitch: BOOL,id: TEditDocument.SelectionId _ primary] = {tdd: TEditDocument.TEditDocumentData = NARROW[viewer.data];tdd.scroll _ endofsel; tdd.scrollGlitch _ glitch; tdd.scrollSelectionId _ id };TRUSTED {Process.Detach[FORK Refresh[]]};END.    ª  -- TEditRefreshImpl.mesa Edited by Paxton on December 28, 1982 2:06 pmLast Edited by: Maxwell, January 6, 1983 11:35 amin case we're waiting in LockAfterRefresh ÊÉ  ˜ JšÏcF™FJ™1šÏk	˜	J˜Jšœžœ
žœ˜*Jšœžœ'˜4Jšœžœ4˜GJšœžœ"˜2Jšœ	žœ˜Jšœžœ˜*Jšœžœ
˜Jšœ
žœ˜J˜ —Jšœž˜J˜ JšžœV˜]Jšžœž˜J˜ Jšœžœžœ)˜LJ˜ Jšœ"žœ˜.Jšœžœ-˜IJšœž	œ˜J˜ šÏnœžœžœ˜Jšœžœ˜-—J˜ šŸœžœ˜Jšžœ/˜6šž˜Jšœ˜Jšœ˜šŸ	œžœžœ#˜8Jšžœžœžœžœ˜9Jšœž˜Jšžœžœžœžœ˜M—Jšœžœ#˜/Jšœ-˜-Jšžœžœžœžœ˜Jšœ˜šžœžœž˜šžœ/žœ
ž˜CJšœžœ˜——Jšžœ˜
——J˜ šŸœžœ#˜6Jšœ'žœ˜;Jšžœžœžœžœ˜Jšœ:˜:Jšœžœ2˜HJšœ&žœ˜Cšžœžœ˜1Jš)™)—Jšœ˜Jšœ"˜"J˜ —šŸœžœ(žœ˜NJšœ'žœ˜;Jšœ3˜3J˜ —šŸœžœ(žœ˜JJšœ,˜,Jšœ'žœ˜;JšœO˜OJ˜ —Jšžœžœ˜)J˜ Jšžœ˜J˜ J˜ — …—    	P  Ã  