<> <> <> DIRECTORY CDVPrivate, DebuggerSwap, PrincOps, Rope, ViewerClasses; CDDebugHelp: CEDAR PROGRAM IMPORTS CDVPrivate, DebuggerSwap SHARES CDVPrivate = BEGIN Debug: PROC [ref: REF, wedge: BOOL, msg: Rope.ROPE] RETURNS [shallCont: BOOL] = TRUSTED { data: REF _ NIL; vRef: CDVPrivate.VRef; vRec: CDVPrivate.VRec _ [properties: NIL, scale: TRASH, intendedScale: TRASH]; vpd: CDVPrivate.VPrivatePerDesign; bbp, bbx: PrincOps.BBTable; bp, bx, bvRef, bvpd: BOOL; WITH ref SELECT FROM v: ViewerClasses.Viewer => data _ v.data; ENDCASE => data _ ref; WITH data SELECT FROM vr: CDVPrivate.VRef => vRef _ vr; ENDCASE => {}; IF bvRef _ vRef#NIL THEN vRec _ vRef^; IF bvpd _ vRef.designRec#NIL THEN vpd _ vRef.designRec^; IF bp _ vRef.pBBptr#NIL THEN bbp _ vRef.pBBptr^; IF bx _ vRef.xBBptr#NIL THEN bbx _ vRef.xBBptr^; DebuggerSwap.WorryCallDebugger["DebugHelp: ChipNDale wedge"]; }; CDVPrivate.UseDebug[Debug]; END.