<> <> <> <> <> <> <> <> DIRECTORY CD USING [Object, Rect], TokenIO USING [Handle]; CDOldInterestRects: CEDAR DEFINITIONS = BEGIN AdjustInterest: PROC [h: TokenIO.Handle, ob: CD.Object]; InsideRect: PROC [ob: CD.Object] RETURNS [CD.Rect]; <<--the default for the interest rect>> <<>> END.