10 lines
404 B
Smalltalk
10 lines
404 B
Smalltalk
accessing
|
|
populateAbilities: abilitiesDictionary
|
|
|
|
| enabled disabled |
|
|
enabled := abilitiesDictionary select: [ :abi | abi keys includes: 'Enabled' ].
|
|
disabled := abilitiesDictionary reject: [ :abi | abi keys includes: 'Enabled' ].
|
|
^ self abilities
|
|
at: 'enabled' put: (enabled collect: [:abi | (abi at: 'Text') ]);
|
|
at: 'disabled' put: (disabled collect: [:abi | (abi at: 'Text') ]);
|
|
yourself. |