The Trunk: Multilingual-nice.104.mcz

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-nice.104.mcz

==================== Summary ====================

Name: Multilingual-nice.104
Author: nice
Time: 19 March 2010, 7:23:17.008 pm
UUID: 1ec39db1-4838-084c-a246-2b392acc1c62
Ancestors: Multilingual-nice.103

Let nextPut: answer the put object.
Same for nextPutAll:, answer the collection argument

=============== Diff against Multilingual-nice.103 ===============

Item was changed:
  ----- Method: MultiByteBinaryOrTextStream>>nextPut: (in category 'public') -----
  nextPut: aCharacter
 
  aCharacter isInteger ifTrue: [^ super nextPut: aCharacter asCharacter].
+ self converter nextPut: aCharacter toStream: self.
+ ^aCharacter
- ^ self converter nextPut: aCharacter toStream: self
  !

Item was changed:
  ----- Method: UnicodeCompositionStream>>nextPut: (in category 'accessing') -----
  nextPut: anObject
 
  self isCombining ifFalse: [
  combinedChar := CombinedChar new.
  combinedChar simpleAdd: anObject.
  ] ifTrue: [
  (combinedChar simpleAdd: anObject) ifFalse: [
  super nextPut: combinedChar combined.
  combinedChar := CombinedChar new.
  combinedChar simpleAdd: anObject.
  ]
  ].
+ ^anObject
  !

Item was changed:
  ----- Method: MultiByteBinaryOrTextStream>>nextPutAll: (in category 'public') -----
  nextPutAll: aCollection
 
  self isBinary ifTrue: [
  ^ super nextPutAll: aCollection.
  ].
+ ^aCollection do: [:e | self nextPut: e].
- aCollection do: [:e | self nextPut: e].
  !

Item was changed:
  ----- Method: MultiByteFileStream>>nextPut: (in category 'public') -----
  nextPut: aCharacter
 
  aCharacter isInteger ifTrue: [ ^super nextPut: aCharacter ].
  (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here"
  ifTrue: [
  aCharacter = Cr
  ifTrue: [
  (LineEndStrings at: lineEndConvention) do: [ :each |
  converter nextPut: each toStream: self ] ]
  ifFalse: [
  converter nextPut: aCharacter toStream: self ].
  ^aCharacter ].
+ self converter nextPut: aCharacter toStream: self.
+ ^aCharacter
- ^self converter nextPut: aCharacter toStream: self
  !

Item was changed:
  ----- Method: UnicodeCompositionStream>>nextPutAll: (in category 'accessing') -----
  nextPutAll: aCollection
 
+ ^aCollection do: [:e | self nextPut: e].
- aCollection do: [:e | self nextPut: e].
  !

Item was changed:
  ----- Method: MultiByteFileStream>>nextPutAll: (in category 'public') -----
  nextPutAll: aCollection
 
  (self isBinary or: [aCollection class == ByteArray]) ifTrue: [
  ^ super nextPutAll: aCollection.
  ].
+ self converter nextPutAll: aCollection toStream: self.
+ ^aCollection!
- self converter nextPutAll: aCollection toStream: self.!