I. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

II. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape path: (BlRoundedRectanglePath new
         cornerRadius: 20 asMargin).
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

III. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape path: BlEllipsePath new.
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

IV. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape path: BlCirclePath new.
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

V. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape path: BlSquarePath new.
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

VI. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape path: (BlStringPath new
         string: 'Bloc').
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

VII. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape wrapContent.
      aShape path: (BlStringPath new
         string: 'Bloc').
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

VIII. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape wrapContent.
      aShape path: (BlStringPath new
         font: (LogicalFont familyName: 'Source Sans Pro' pointSize: 50);
         string: 'Bloc').
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"

IX. Snippet

BlElement new
   shapeDo: [ :aShape |
      aShape beExact: 200@200.
      aShape path: (BlStringPath new
         font: (LogicalFont familyName: 'Source Sans Pro' pointSize: 50);
         string: 'Bloc').
      aShape fillPaint: Color lightGray ];
   extent: 400@200;
   openInWorld

Code snippet above produces the following element:

An element from "Snippet"