20 lines
558 B
Smalltalk
20 lines
558 B
Smalltalk
accessing
|
|
optionsWikiTextRow: value
|
|
| output |
|
|
value class = String ifTrue: [ ^ value , '|' ].
|
|
output := '' writeStream.
|
|
output
|
|
nextPutAll: (value at: 'Description'), ' |'.
|
|
value keys size > 1 ifTrue: [ | remaining cell |
|
|
remaining := value copy removeKey: 'Description'; yourself.
|
|
cell := remaining values first.
|
|
cell class = Array ifTrue: [
|
|
cell doWithIndex: [:each :i |
|
|
output nextPutAll: '[[', each asString,']]'.
|
|
(i = cell size) ifFalse: [output nextPutAll: '; ' ]
|
|
]
|
|
].
|
|
output nextPutAll: ' |'.
|
|
].
|
|
^ output contents
|
|
|