12 lines
388 B
Smalltalk
12 lines
388 B
Smalltalk
accessing
|
|
optionsWikiTextTable
|
|
| output |
|
|
output := '' writeStream.
|
|
output nextPutAll: String crlf.
|
|
self options keysAndValuesDo: [:k :v | | keyString |
|
|
keyString := ((k size = 1) ifTrue: [ k first asString ] ifFalse: [ k first asString, ' - ', k last asString ]).
|
|
output
|
|
nextPutAll: '| ',keyString , ' |';
|
|
nextPutAll: (self optionsWikiTextRow: v); cr
|
|
].
|
|
^ output contents |