--- a/ByteArray.st Wed Feb 22 19:01:54 2017 +0100
+++ b/ByteArray.st Wed Feb 22 19:01:58 2017 +0100
@@ -2694,19 +2694,20 @@
displayOn:aGCOrStream
"return a printed representation of the receiver for displaying"
+ |cls|
+
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
- "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
- |cls|
-
+ "/ old ST80 means: draw-yourself on a GC.
cls := self class.
((cls == ByteArray or:[cls == ImmutableByteArray]) and:[aGCOrStream isStream]) ifTrue:[
- self storeOn:aGCOrStream.
- ^ self
+ self storeOn:aGCOrStream.
+ ^ self
].
^ super displayOn:aGCOrStream
- "Created: 25.10.1995 / 13:33:26 / cg"
- "Modified: 22.4.1996 / 12:54:06 / cg"
+ "Created: / 25-10-1995 / 13:33:26 / cg"
+ "Modified: / 22-04-1996 / 12:54:06 / cg"
+ "Modified (comment): / 22-02-2017 / 16:54:27 / cg"
!
printOn:aStream