--- a/RunArray.st Thu Jul 10 14:23:59 2014 +0200
+++ b/RunArray.st Thu Jul 10 14:24:08 2014 +0200
@@ -924,7 +924,7 @@
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
"/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
- (aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[
+ (aGCOrStream isStream) ifTrue:[
aGCOrStream nextPutAll: '(RunArray new'.
contentsArray notNil ifTrue:[
contentsArray pairWiseDo:[:len :val |
@@ -1386,10 +1386,10 @@
!RunArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.36 2014-03-07 22:06:25 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.37 2014-07-10 12:24:08 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.36 2014-03-07 22:06:25 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.37 2014-07-10 12:24:08 cg Exp $'
! !