<> <> <> <> <<>> 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: CD.ObjectClass_NIL ]; CreateBareRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object]; <<--Create rect of class bareRectClass (not going through class mechanism) >> bareRectClass: PRIVATE READONLY CD.ObjectClass; END.