--- a/Text.st Thu Jul 10 14:24:25 2014 +0200
+++ b/Text.st Thu Jul 10 14:24:27 2014 +0200
@@ -1454,7 +1454,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:'(Text string:'.
string storeOn:aGCOrStream.
aGCOrStream nextPutAll:' runs:'.
@@ -1856,11 +1856,11 @@
!Text class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.126 2014-05-01 10:59:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.127 2014-07-10 12:24:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.126 2014-05-01 10:59:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.127 2014-07-10 12:24:27 cg Exp $'
! !