<> <> <> <> <<>> DIRECTORY CD USING [Position, Layer, ObjectClass, Object]; CDRects: CEDAR DEFINITIONS = BEGIN <> <<--vanilla procedures>> CreateRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object]; --Create a rect-object <<-- x is considered width, y is considered length>> <<--technology implementors>> UseAsCreateRect: PROC [ l: CD.Layer, createRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object], hangExtensionsOn: REF CD.ObjectClass_NIL ]; CreateBareRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object]; bareRectClass: PRIVATE READONLY REF CD.ObjectClass; END.