--- a/DrawAdaptor.st	Tue Jul 08 16:38:32 2014 +0200
+++ b/DrawAdaptor.st	Thu Jul 10 14:23:21 2014 +0200
@@ -177,7 +177,11 @@
 !
 
 displayOn:aGCOrStream
-    (aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[
+    "/ 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) ifFalse:[
+        self drawValue displayOn:aGCOrStream x:0 y:0.
+    ] ifTrue:[
         aGCOrStream
             nextPutAll:self className;
             nextPut:$(.
@@ -185,8 +189,6 @@
         aGCOrStream nextPutAll:'->'.
         self drawValue printOn:aGCOrStream.
         aGCOrStream nextPut:$).
-    ] ifFalse:[
-        self drawValue displayOn:aGCOrStream x:0 y:0.
     ].
 !
 
@@ -227,5 +229,6 @@
 !DrawAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DrawAdaptor.st,v 1.6 2009-03-23 07:22:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DrawAdaptor.st,v 1.7 2014-07-10 12:23:21 cg Exp $'
 ! !
+