--- a/VisualComponent.st Thu Jul 10 14:23:22 2014 +0200
+++ b/VisualComponent.st Thu Jul 10 14:24:24 2014 +0200
@@ -70,7 +70,7 @@
!VisualComponent class methodsFor:'others'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.29 2014-02-06 11:49:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.30 2014-07-10 12:24:24 cg Exp $'
! !
!VisualComponent class methodsFor:'queries'!
@@ -361,7 +361,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:[
self printOn:aGCOrStream.
^ self
].
@@ -590,6 +590,6 @@
!VisualComponent class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.29 2014-02-06 11:49:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.30 2014-07-10 12:24:24 cg Exp $'
! !