Your ideas below regarding method definition is interesting, but this
class definition seems problematic.
> [Point: Object |
> | x y |��
[Generator: initialValue |��| currentValue |currentValue := initialValue.[reset | currentValue := 0 ].[next |��currentValue := currentValue + 1. ��^currentValue].reset category: 'accessing'.next category: 'accesing'.].myGen := Generator: 5.myGen next = 6.��myGen reset = 0.��myGen next = 1.��
generatorClass := [:initialValue || currentValue |currentValue := initialValue.��Arraywith: [ currentValue := 0 ]with: [ currentValue := currentValue + 1 ].].myGen := generatorClass value: 5.��myGen last value = 6.myGen first value = 0.��myGen last value = 1.��