2021-06-20 18:32:57 +00:00
|
|
|
accessing
|
|
|
|
|
optionsWikiTextTable
|
|
|
|
|
| output |
|
|
|
|
|
output := '' writeStream.
|
2021-12-05 18:58:22 +00:00
|
|
|
output nextPutAll: String crlf.
|
2021-07-06 17:20:25 +00:00
|
|
|
self options keysAndValuesDo: [:k :v | | keyString |
|
|
|
|
|
keyString := ((k size = 1) ifTrue: [ k first asString ] ifFalse: [ k first asString, ' - ', k last asString ]).
|
2021-06-20 18:32:57 +00:00
|
|
|
output
|
2021-07-06 17:20:25 +00:00
|
|
|
nextPutAll: '| ',keyString , ' |';
|
2021-12-05 18:58:22 +00:00
|
|
|
nextPutAll: (self optionsWikiTextRow: v); cr
|
2021-06-20 18:32:57 +00:00
|
|
|
].
|
|
|
|
|
^ output contents
|
