CD, CDBasics, CDCells, CDColors, CDCommandOps, CDDrawQueue, CDEnvironment, CDEvents, CDLayers, CDPanel, CDProperties, CDSequencer, CDValue, CDVFurtherPainters, CDViewer, CDViewerBase, CDVPrivate, CDVScale, CedarProcess, DebuggerSwap, InputFocus, InterminalBackdoor, PrincOpsUtils, Process, Rope, RuntimeError, SafeStorage, Terminal, TerminalIO, UserProfile, ViewerEvents, ViewerOps, WindowManager

DebuggerSwap.WorryCallDebugger["ChipNDale wedge"];

pos: CD.Position

];

--may be called by viewers NotifyViewer proc only; monitored through viewers NotifyViewer proc

t ← track; track ← NIL;

IF t=NIL THEN t ← NEW[TrackRecord];

t.pos ← p

};

track ← t

};

rect: CD.Rect ← CDBasics.universe,

erase: BOOL ← FALSE

];

IF terminalLock THEN cursorWhileInput

ELSE IF cursoredCDViewer=inputFocussedViewer THEN cursorWithFocus

ELSE cursorNoFocus;

-- erase to allow also backgrounds of arbitrary patterns or colors

CDVPrivate.notSupportedColorMode => GOTO oops;

RuntimeError.UNCAUGHT =>

};

--vRef ABSOLUTELY never NIL {proc is local}

ENABLE UNWIND => NULL;

IF vRef.cursorInhibitations=0 THEN {

DisposeTrackRef[tr];

};

--vRef ABSOLUTELY never NIL {proc is local}

ENABLE UNWIND => NULL;

IF vRef.onVC THEN {

};

vr: VRef => vRef ← vr;

ENDCASE => RETURN;

--here it would have trapped if vRef=NIL

tr: TrackRef => TrackRefTrack[vRef, tr]; -- called by NotifyViewer

atom: ATOM => {

area: RepaintRectAreaRef => -- protected by ProtectedRepaint

ENDCASE => {

--logically local to ProtectedRepaint

--is outside to make callable from catch-phrase and initialization

ENABLE UNWIND => NULL;

vRef.cursorInhibitations ← vRef.cursorInhibitations-1;

BROADCAST tryToPaint

};

--remove cursor and disables any cursoring process

--let only one client come through

EnableCursoring[vRef];

IF ShallContinue[vRef, TRUE, "CDVMain.PR"] THEN GOTO oops ELSE REJECT

};

--and enters protected region.

--vRef never nil; guaranteed from caller {proc is local}

ENABLE UNWIND => NULL;

vRef.cursorInhibitations ← vRef.cursorInhibitations+1;

WHILE vRef.cursorInhibitations>1 DO

mustRemoveCursor ← vRef.onVC;

};

! RuntimeError.UNCAUGHT => IF ShallContinue[vRef, TRUE, "CDVMain.PR2"] THEN CONTINUE

];

--vRef.fooBBptr is a short pointer! (hardware) therefor must be local to some proc space.

vRef.pBBptr ← PrincOpsUtils.AlignedBBTable[@bBTableSpace1];

vRef.xBBptr ← PrincOpsUtils.AlignedBBTable[@bBTableSpace2];

};

comm^ ← CDDrawQueue.FetchCommand[vRef.ct];

SELECT comm.key FROM

ENDLOOP;

vRef: VRef => {

ENDCASE => NULL;

vRef: VRef => {

ENDCASE => NULL;

ViewerOps.PaintViewer[vRef.viewer, client, FALSE, $RemoveTrack

set, pop => lastInputFocussedViewer ← inputFocussedViewer ← self;

kill, push => inputFocussedViewer ← NIL;

ENDCASE => NULL;

IF ShallContinue[self, TRUE, "CDVMain.Notify"] THEN GOTO oops ELSE REJECT;

--makes cursor logically available

IF NOT vRef.designRec.startLCValid THEN {

};

--makes cursor logically unavailable

vRef.designRec.stopLC ← pos;

vRef.designRec.startLCValid ← FALSE;

};

--uses intermediate layer variable mouse

VisibleTrack: PROC [vRef: VRef, pos: CD.Position] = INLINE {

--Track

pos: CD.Position = CDVScale.ViewerToDesignPosition[vRef.scale, mouse];

LogicalTrack[vRef, pos];

IF vRef.cursorInhibitations=0 THEN VisibleTrack[vRef, pos];

};

--uses intermediate layer variable mouse

pos: CD.Position ~ CDVScale.ViewerToDesignPosition[vRef.scale, mouse];

vRef.hurryUp ← TRUE;

LogicalTrackOff[vRef, pos];

RemoveCursor[vRef];

CDVPrivate.SetCursorMode[vRef, NIL];

};

vr: VRef => vRef ← vr;

ENDCASE => RETURN;

tem: Viewer ~ cursoredCDViewer;

IF vRef.deviceDrawRef=NIL THEN {

IF tem#NIL THEN

--avoid running in 24 bit per pixel mode

IF self.column=color THEN

cursoredCDViewer ← self;

SetCursor[];

};

WITH input.first SELECT FROM

input ← input.rest

ENDLOOP;

(IF design.name#NIL THEN design.name ELSE "no name"),

" (",

design.technology.name,

") cell: ",

CDCells.PushedCellName[design]

]]

WITH l.first.data SELECT FROM

ENDLOOP;

IF vl.first.newVersion THEN {

ENDLOOP;

[] ← CDPanel.CreatePanel[design];

flavor: viewerClassAtom,

info: [

paint: FALSE --important: vRef.viewer is initialized only after return

paint: TRUE --sorry, must check elsewhere for this case, otherwise viewerpackage blusters

];

--but redraw does not yet come through... (clip area empty!)

CDViewer.ShowAndScale[v, bb];

CDDrawQueue.Flush[vRef.ct]; --I don't trust vRef

vRef.scale ← vRef.intendedScale;

vRef.dClip ← CDVScale.GetClipRecord[vRef.intendedScale, v.cw, v.ch];

};

IF v.column=color AND ~v.iconic AND ~v.offDeskTop THEN

};

ViewerOps.EnumerateViewers[CheckColorScreen];

IF colorDisplayEmpty THEN col ← color

}

vRef: VRef => {

ENDCASE => NULL;

vRef: VRef => CDDrawQueue.ChangeClipArea[vRef.ct, CDBasics.empty];

ENDCASE => NULL;

IF Terminal.GetColorMode[InterminalBackdoor.terminal].full THEN

scale: INT = CDValue.FetchInt[boundTo: design, key: $CDxInitScale, propagation: global, ifNotFound: 6];

grid: INT = CDValue.FetchInt[boundTo: design, key: $CDxInitGrid, propagation: global, ifNotFound: design.technology.lambda];

RETURN [ CDVScale.MakeScale[

};

FOR l: LIST OF VRef ← allVRefs, l.rest WHILE l#NIL DO

vRef.designRec ← NEW[CDVPrivate.VPrivatePerDesign ← [

CDVPrivate.SetCursorMode[vRef, NIL];

};

b: REF BOOL = NEW[BOOL←FALSE];

vRef ← NEW[CDVPrivate.VRec ← [

InitDesignRec[vRef];

};

--allVRefs ← LO OPHOLE[List.DRemove[ref: vRef, list: LO OPHOLE[allVRefs]]];

IF allVRefs#NIL THEN {

CDDrawQueue.Destroy[vRef.ct];

}