Class Athenadoc


back
convertWhiteSpaces: string
| ans |
ans := ''.
string do: [:c|
(c = Char newline)
ifTrue: [ans := ans, '
', c asString]
ifFalse: [(c = (Char new: 9))
ifTrue: [ans := ans, ' ']
ifFalse: [ans := ans, c asString]]].
^ ans