ProtoObjectObjectWAConfigurationPool
| configurations |
| Registry |
| instance | class |
|---|---|
| as yet unclassified | as yet unclassified |
| configurations |
|---|
|
|
| Registry |
|---|
|
|
| as yet unclassified |
|---|
| add: aConfiguration |
configurations add: aConfiguration |
| configurations |
^ configurations |
| initialize |
configurations _ Set new |
| remove: aConfiguration |
configurations remove: aConfiguration ifAbsent: [] |
| as yet unclassified |
|---|
| initialize |
Registry _ Dictionary new |
| named: aSymbol |
^ Registry at: aSymbol ifAbsentPut: [self new] |
| new |
^ self basicNew initialize |