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