<> <> <> <> <> DIRECTORY CD USING [DesignRect, ObPtr, ObjectProcs]; CDInterestRects: CEDAR DEFINITIONS = BEGIN SetInterestProc: TYPE = PROC [ob: CD.ObPtr, r: CD.DesignRect]; AdjustInterest: PRIVATE PROC [ob: CD.ObPtr]; InstallOldSetInterest: PROC [type: REF CD.ObjectProcs, proc: SetInterestProc]; END.