DIRECTORYCarets,CaretsExtras USING [],Imager USING [Context, MaskPixel, PixelArray, SetColor],ImagerOps USING [XOR],Process USING [Detach, MsecToTicks, SetTimeout],ViewerClasses USING [Viewer],ViewerExtras USING [PaintClient];CaretsImpl: CEDAR MONITORIMPORTS Imager, ImagerOps, Process, ViewerExtrasEXPORTS Carets, CaretsExtras= BEGIN OPEN Carets;timeOut: CONDITION;caretH: INTEGER = 6;caretW: INTEGER = 16;caretXOffset: CARDINAL = 8;CaretArray: TYPE = ARRAY [0..caretH) OF WORD;pCaretArray: CaretArray _ [000400B,	-- 0000000100000000001600B,	-- 0000001110000000003700B,	-- 0000011111000000003300B,	-- 0000011011000000006140B,	-- 0000110001100000004040B	-- 0000100000100000];sCaretArray: CaretArray _ [000400B,	-- 0000000100000000001200B,	-- 0000001010000000002100B,	-- 0000010001000000002100B,	-- 0000010001000000004040B,	-- 0000100000100000004040B	-- 0000100000100000];pCaret: Imager.PixelArray _ NIL;sCaret: Imager.PixelArray _ NIL;pX, pY, sX, sY: INTEGER;pDark, sDark: BOOLEAN _ FALSE;pCaretViewer, sCaretViewer: PUBLIC ViewerClasses.Viewer;StartCaret: PUBLIC ENTRY PROC[viewer: ViewerClasses.Viewer, x, y: INTEGER, id: CaretId] = {ENABLE UNWIND => NULL;IF viewer = NIL THEN RETURN;InvertCaret[id, TRUE];	-- kill off old visible caretIF x =-10000 AND y =-10000 THEN SELECT id FROM -- special reset for ViewerBLTImpl to move viewersprimary => {x _ pX; y _ pY};secondary => {x _ sX; y _ sY};ENDCASE;x _ MIN[x, viewer.cw];SELECT id FROMprimary => { pX _ x; pY _ y; pCaretViewer _ viewer; };secondary => { sX _ x; sY _ y; sCaretViewer _ viewer; };ENDCASE;};StopCaret: PUBLIC ENTRY PROC [id: CaretId] = BEGINENABLE UNWIND => NULL;InvertCaret[id, TRUE];END;caretHoldCount: INTEGER _ 0;	-- number of requests pending to suspend caretSuspendCarets: PUBLIC ENTRY PROC = BEGINENABLE UNWIND => NULL;IF pDark AND pCaretViewer#NIL THEN InvertCaret[primary];IF sDark AND sCaretViewer#NIL THEN InvertCaret[secondary];caretHoldCount _ caretHoldCount+1;END;SuspendVisibleCarets: PUBLIC ENTRY PROC = BEGIN -- exported to CaretsExtrasENABLE UNWIND => NULL;IF NOT pDark AND pCaretViewer#NIL THEN InvertCaret[primary];IF NOT sDark AND sCaretViewer#NIL THEN InvertCaret[secondary];caretHoldCount _ caretHoldCount+1;END;ResumeCarets: PUBLIC ENTRY PROC = BEGINENABLE UNWIND => NULL;caretHoldCount _ MAX[0, caretHoldCount-1];END;InvertCaret: INTERNAL PROC [id: CaretId, kill: BOOL _ FALSE] = BEGINSELECT id FROMprimary => {IF (~kill OR pDark) AND pCaretViewer#NIL THEN {action: PROC[context: Imager.Context] ~ {Imager.SetColor[context, ImagerOps.XOR];Imager.MaskPixel[context, pCaret];};ViewerExtras.PaintClient[pCaretViewer, action];pDark _ ~pDark;};IF kill THEN pCaretViewer _ NIL;};secondary => {action: PROC[context: Imager.Context] ~ {Imager.SetColor[context, ImagerOps.XOR];Imager.MaskPixel[context, sCaret];};IF (~kill OR sDark) AND sCaretViewer#NIL THEN {ViewerExtras.PaintClient[sCaretViewer, action];sDark _ ~sDark;};IF kill THEN sCaretViewer _ NIL;};ENDCASE;END;CaretProcess: ENTRY PROC = BEGINENABLE UNWIND => NULL;TRUSTED {Process.SetTimeout[@timeOut, Process.MsecToTicks[500]]};DO WAIT timeOut;IF caretHoldCount#0 THEN LOOP;	-- suspendedIF pCaretViewer#NIL THEN InvertCaret[primary];IF sCaretViewer#NIL THEN InvertCaret[secondary];ENDLOOP;END;TRUSTED {Process.Detach[FORK CaretProcess]};	-- start the blinkerEND.  Ё  CaretsImpl.mesaCopyright c 1983, 1984 Xerox Corporation.  All rights reserved.Edited by McGregor on May 31, 1983 11:18 amLast Edited by: Maxwell, May 19, 1983 1:24 pmLast Edited by: Paul Rovner, June 15, 1983 4:57 pmDoug Wyatt, September 4, 1984 11:54:07 am PDTTRUSTED { Imager.MaskBits[context: context, x: pX-caretXOffset, y: pY,base: @pCaret, wpl: 1, fMin: 0, sMin: 0, fSize: caretW, sSize: caretH] };Screw the NOTIFY; CaretProcess will eventually wake up and notice new caret Э╩Д  Ц"Mesa" styleШ Ъ╧cЩJЪЬ
╧mЬЭЬ/Щ?JЪЭ+Щ+JЩ-JЩ2JЩ-ЧJШ Ъ╧k	Ш	JШJЪЬЯЬШJЪЬЯЬ,Ш8JЪЬ
ЯЬЯЬШJЪЬЯЬ#Ш0JЪЬЯЬ
ШJЪЬЯЬШ!JШ ЧJЪЬЯШJЪЯЬ)Ш0JЪЯЬШJЪЬЯЬЯЬШJШ JЪЬ	Я	ЬШJШ JЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJШ JЪ	ЬЯЬЯЬЯЬЯЬШ-JШ ЪЬШJШJШJШJШJШJШJШJШ ЧЪЬШJШJШJШJШJШJШJШJШ ЧJЪЬЯЬШ JЪЬЯЬШ JШ ЪЯЬ?ЩFJЪЬIЩIJЩ ЧJЪЬЯЬШJЪЬЯЬЯЬШJЪЬЯЬШ8JШ Ъ
╧n
ЬЯЬЯЬЯЬ%ЯЬШ[JЪЯЬЯЬЯЬШJЪЯЬ
ЯЬЯЬЯЬШJЪЬЯЬЭШ4JШ ЪЯЬЯЬЯЬЯЬЯЬЭ2ШaJЪЬШJЪЬШJЪЯЬШJШ ЧJЪЬЯЬШЪЯЬЯШJЪЬ6Ш6JЪЬ8Ш8JЪЯЬШJШ ЧJЪЭKЩKJЪЬШJШ ЧЪ	а	ЬЯЬЯЬЯЬЯШ2JЪЯЬЯЬЯЬШJЪЬЯЬШJЪЯЬШJШ ЧJЪЬЯЬЭ.ШKJШ Ъ	аЬЯЬЯЬЯЬЯШ(JЪЯЬЯЬЯЬШJЪЯЬЯЬЯЬЯЬШ8JЪЯЬЯЬЯЬЯЬШ:JШ"JЪЯЬШJШ ЧЪаЬЯЬЯЬЯЬЯЬЭШKJЪЯЬЯЬЯЬШJЪ
ЯЬЯЬЯЬЯЬЯЬШ<JЪ
ЯЬЯЬЯЬЯЬЯЬШ>JШ"JЪЯЬШJШ ЧЪ	аЬЯЬЯЬЯЬЯШ'JЪЯЬЯЬЯЬШJЪЬЯЬШ*JЪЯЬШJШ ЧЪаЬЯЬЯЬЯЬЯЬЯШDЪЯЬЯШШЪ
ЯЬЯЬЯЬЯЬЯЬШ/ЪЬЯЬШ)JЪЬ#ЯЬШ(JШ"JШЧJЪЬ/Ш/JШJЪЬШЧJЪЯЬЯЬЯЬШ JШЧШЪЬЯЬШ)JЪЬ#ЯЬШ(JШ"JШЧЪ
ЯЬЯЬЯЬЯЬЯЬШ/JЪЬ/Ш/JШJЪЬШЧJЪЯЬЯЬЯЬШ JШЧJЪЯЬШЧJЪЯЬШJШ ЧЪаЬЯЬЯЬЯШ JЪЯЬЯЬЯЬШJЪЯЬ:ШAЪЯЬЯЬ	ШJЪЯЬЯЬЯЬЭШ+JЪЯЬЯЬЯЬШ.JЪЯЬЯЬЯЬШ0JЪЯЬШЧJЪЯЬШJШ ЧJЪЯЬЯЬЭШAJШ JЪЯЬШJШ JШ Ч ЕЧ    p  ф  