<> <> <> <<>> DIRECTORY CD USING [DesignPosition, Level, ObjectProcs, ObPtr]; CDRects: CEDAR DEFINITIONS = BEGIN CreateRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr]; UseAsCreateRect: PROC [ l: CD.Level, createRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr], hangExtensionsOn: REF CD.ObjectProcs_NIL ]; CreateBareRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr]; CreateSaveRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr]; <<-- x is considered length, y is considered width>> END.