DIRECTORY CDVPrivate, DebuggerSwap, PrincOps, Rope, ViewerClasses; CDDebugHelp: CEDAR PROGRAM IMPORTS CDVPrivate, DebuggerSwap = 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. –CDDebugHelp.mesa Created by: Christian Jacobi, March 20, 1986 4:34:54 pm PST Last edited by: Christian Jacobi, October 22, 1986 11:25:05 am PDT Κh˜™Icode™;K™B—šΟk ˜ Jšœ8˜8—J˜šΟn œœ˜Jšœ˜"—Jš˜K˜šžœœœ œ œœ œœ˜YJšœœœ˜J˜Kšœ%œ œ œ˜NJšœ"˜"Jšœ˜Jšœœ˜šœœœ˜Jšœ)˜)Jšœ˜—šœœœ˜Jšœ!˜!Jšœ˜—Jšœœœ˜*Jšœœœ˜9Jšœœœ˜3Jšœœœ˜3Jšœ=˜=J˜—J˜Jšœ˜Jšœ˜—…—†„