--- a/ByteArray.st Fri Feb 17 11:01:53 2017 +0100
+++ b/ByteArray.st Fri Feb 17 11:02:06 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -2794,14 +2792,15 @@
|cls|
- ((cls := self class) == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
- "/ care for subclasses
- aStream nextPutAll:'#['.
- self
- do:[:byte | byte storeOn:aStream]
- separatedBy:[aStream space].
- aStream nextPutAll:']'.
- ^ self
+ cls := self class.
+ (cls == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
+ "/ care for subclasses
+ aStream nextPutAll:'#['.
+ self
+ do:[:byte | byte storeOn:aStream]
+ separatedBy:[aStream space].
+ aStream nextPut:$].
+ ^ self
].
^ super storeOn:aStream
@@ -2813,7 +2812,8 @@
#[1 2 3 4 5] printString
"
- "Modified: 12.9.1997 / 22:11:33 / cg"
+ "Modified: / 12-09-1997 / 22:11:33 / cg"
+ "Modified: / 17-02-2017 / 10:50:37 / stefan"
! !
!ByteArray methodsFor:'queries'!