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