Shapes subclass: #Sphere
   instanceVariableNames: 'radius'
   classVariableNames: ''
   category: 'Shapes'