equal
deleted
inserted
replaced
108 newSz := sz := collection size. |
108 newSz := sz := collection size. |
109 position + additionalSize >= sz ifTrue:[ |
109 position + additionalSize >= sz ifTrue:[ |
110 newSz := newSz + additionalSize + 100. "add some more space, maybe more will be added" |
110 newSz := newSz + additionalSize + 100. "add some more space, maybe more will be added" |
111 ]. |
111 ]. |
112 collection := ((CharacterArray speciesForCharacterSize:newCharacterSize) new:newSz) |
112 collection := ((CharacterArray speciesForCharacterSize:newCharacterSize) new:newSz) |
113 replaceFrom:1 to:sz with:collection startingAt:1. |
113 replaceFrom:1 to:position with:collection startingAt:1. |
114 currentCharacterSize := collection bitsPerCharacter. |
114 currentCharacterSize := collection bitsPerCharacter. |
115 ]. |
115 ]. |
116 ! ! |
116 ! ! |
117 |
117 |
118 !CharacterWriteStream methodsFor:'private-accessing'! |
118 !CharacterWriteStream methodsFor:'private-accessing'! |