14 lines
473 B
Smalltalk
14 lines
473 B
Smalltalk
accessing
|
|
loadCharacterNames
|
|
| dataSlice response |
|
|
dataSlice := (self fromRepository second at: 'Oracles') sixth.
|
|
self name: (dataSlice at: 'Display' at: 'Title').
|
|
self intro: (dataSlice at: 'Description').
|
|
response := OrderedDictionary new.
|
|
#('givenNames' 'callsigns' 'familyNames') doWithIndex: [ :key :i |
|
|
response
|
|
at: key
|
|
put: ((((dataSlice at: 'Oracles') at: i) at: 'Table') collect: [ :each | each at: 'Result' ]).
|
|
].
|
|
self options: response.
|
|
^ self |