<> <> DIRECTORY Atom, IO, Log, Nice, -- PrettyPrinTV, PrinTV, -- Rope, RPCPkt, PrincOpsUtils, VBag, ViewRec, ViewerClasses; NiceImpl: CEDAR PROGRAM IMPORTS Atom, IO, Log, PrincOpsUtils, -- PrinTV, PrettyPrinTV,-- VBag, ViewRec EXPORTS Nice SHARES VBag = { BeNiceDo: PROC[r: REF, d: INT, how: ATOM_$System, howD: REF_NIL] = TRUSTED { out: IO.STREAM _ Log.FindWhere[how, howD]; out.Put[IO.refAny[r]]; <<>> <<<< This is what is meant to happen! Wait for PrettyPrint to reappear >>>> <> <> <> <> }; ViewDo: PROC[r: REF, name: Rope.ROPE] = TRUSTED { IF ~PrincOpsUtils.IsBound[VBag.Start] THEN RETURN; IF recTable=NIL THEN recTable_VBag.Create["Program Management Variables"]; []_VBag.Start[recTable, r, name]; }; ViewOne: PUBLIC PROC[r: REF, name: Rope.ROPE_NIL, iconic: BOOL_FALSE] = { IF ~PrincOpsUtils.IsBound[ViewRec.ViewRef] THEN RETURN; []_ViewRec.ViewRef[agg: r, viewerInit: [name: name, iconic: iconic]]; }; <> Ref: PUBLIC UNSAFE PROC[whatever: LONG CARDINAL] RETURNS [REF] = UNCHECKED {RETURN[LOOPHOLE[whatever]]}; recTable: ViewerClasses.Viewer_NIL; Atom.PutProp[$Interfaces, $BeNice, NEW[Nice.BeNiceProc_BeNiceDo]]; Atom.PutProp[$Interfaces, $View, NEW[Nice.ViewProc_ViewDo]]; TRUSTED { IF PrincOpsUtils.IsBound[ViewRec.SetBehavior] THEN ViewRec.SetBehavior[newBehavior: [delayParms: [min: 1000]]]; -- Reduce sampling load }; }.