WAComponent subclass: #WWWShapes
   instanceVariableNames: 'shapes shape dim'
   classVariableNames: ''
   category: 'Shapes'