displayOn: cleanup
authorClaus Gittinger <cg@exept.de>
Thu, 10 Jul 2014 14:23:23 +0200
changeset 16741 81ada4378090
parent 16740 4d956eba7683
child 16742 4416b836c741
displayOn: cleanup
ByteArray.st
--- a/ByteArray.st	Thu Jul 10 14:23:20 2014 +0200
+++ b/ByteArray.st	Thu Jul 10 14:23:23 2014 +0200
@@ -162,6 +162,7 @@
 ! !
 
 
+
 !ByteArray class methodsFor:'queries'!
 
 elementByteSize
@@ -179,6 +180,7 @@
     "Modified: 23.4.1996 / 15:56:25 / cg"
 ! !
 
+
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
 bitXor:aByteArray
@@ -2589,9 +2591,9 @@
 displayOn:aGCOrStream
     "return a printed representation of the receiver for displaying"
 
-    (self class == ByteArray and:[aGCOrStream isStream or:[aGCOrStream == Transcript]]) ifTrue:[
-	self storeOn:aGCOrStream.
-	^ self
+    (self class == ByteArray and:[aGCOrStream isStream]) ifTrue:[
+        self storeOn:aGCOrStream.
+        ^ self
     ].
     ^ super displayOn:aGCOrStream
 
@@ -2952,6 +2954,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'searching'!
 
 indexOf:aByte startingAt:start
@@ -3017,6 +3020,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'testing'!
 
 isByteArray
@@ -3044,10 +3048,10 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.213 2014-06-23 20:54:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.214 2014-07-10 12:23:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.213 2014-06-23 20:54:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.214 2014-07-10 12:23:23 cg Exp $'
 ! !