hg/stx-libbasic: changeset 22675:92533fa8cce5

author	Claus Gittinger <cg@exept.de>
	Sat, 14 Apr 2018 08:07:03 +0200
changeset 22675	92533fa8cce5
parent 22674	d0d8880e6081
child 22676	69e0924c2205

#BUGFIX by cg class: CharacterWriteStream changed: #nextPutAll:startingAt:to: allow writing bytes (needed for expecco, to read from a binary zip stream into a character write stream)

--- a/CharacterWriteStream.st	Sat Apr 14 06:32:41 2018 +0200
+++ b/CharacterWriteStream.st	Sat Apr 14 08:07:03 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2005 by eXept Software AG
               All Rights Reserved
@@ -278,6 +280,12 @@
 nextPutAll:aCollection startingAt:start to:stop
     |needCharacterSize|
 
+    aCollection isCharacters ifFalse:[
+        aCollection isByteArray ifTrue:[
+            ^ super nextPutAll:aCollection startingAt:start to:stop
+        ]
+    ].
+
     needCharacterSize := aCollection characterSize.
     needCharacterSize > currentCharacterSize ifTrue:[
         self characterSizeChangedTo:needCharacterSize size:stop-start+1.