Copyright © 1984, 1985 by Xerox Corporation. All rights reserved.

Created by: Jacobi, September 13, 1984 3:21:36 pm PDT

Last Edited: Jacobi, April 15, 1985 3:49:59 pm PST

THIS MODULE IS PRIVATE AND WILL BE REMOVED WITHOUT MAKING A NEW RELEASE

CD USING [DesignRect, ObPtr, ObjectProcs];

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.