6 lines
253 B
Smalltalk
6 lines
253 B
Smalltalk
|
accessing
|
||
|
|
fromDictionary: aDictionary
|
||
|
|
name := aDictionary at: 'Name'.
|
||
|
|
character := aDictionary at: 'Character'.
|
||
|
|
(aDictionary at: 'Truths') collect: [:truth | self options add: ((SfTruthOption new fromDictionary: truth))].
|
||
|
|
self refineOptionIntervals.
|