123456789101112131415161718192021222324252627 |
- Smalltalk createPackage: 'Axon'!
- Object subclass: #AxonizedObject
- instanceVariableNames: 'axon'
- package: 'Axon'!
- !AxonizedObject commentStamp!
- I am base class for object using Axon changed:
- for event / change logistics,
- Set Axon instance with `axon:` and then use
- `self changed: anAspect` to trigger axon's `changed:`.!
- !AxonizedObject methodsFor: 'accessing'!
- axon
- ^ axon
- !
- axon: anAxon
- axon := anAxon
- ! !
- !AxonizedObject methodsFor: 'action'!
- changed: anAspect
- self axon changed: anAspect
- ! !
|