8 lines
240 B
Smalltalk
8 lines
240 B
Smalltalk
accessing
|
|
fromDictionary: aDictionary
|
|
|
|
name := aDictionary
|
|
at: 'Name'
|
|
ifAbsent: [ name := aDictionary at: 'Display name' ].
|
|
intro := aDictionary at: 'Description'.
|
|
self optionsFromDictionary: (aDictionary at: 'Table') |