convertFromCompoundText
| readStream converter |
readStream := self readStream.
^ self class new: self size streamContents: [ :writeStream|
converter := CompoundTextConverter new.
converter ifNil: [^ self].
[readStream atEnd] whileFalse: [
writeStream nextPut: (converter nextFromStream:
readStream)]].
CompoundTextConverter new -> DNU
convertFromSystemString
| readStream converter |
readStream := self readStream.
^ self class new: self size streamContents: [ :writeStream|
converter := LanguageEnvironment defaultSystemConverter.
converter ifNil: [^ self].
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[readStream atEnd] whileFalse: [
writeStream nextPut: (converter nextFromStream:
readStream)]].
systemConverterClass
self subclassResponsibility.
^ Latin1TextConverter.
What!!!!
Stef
