#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Wed, 22 Feb 2017 18:58:09 +0100
changeset 7930 300040dda391
parent 7929 576cffea9ac5
child 7931 008b8b3ec14e
#OTHER by cg comment in: #displayOn:
Image.st
--- a/Image.st	Wed Feb 22 18:18:10 2017 +0100
+++ b/Image.st	Wed Feb 22 18:58:09 2017 +0100
@@ -7067,18 +7067,18 @@
      (although the fallBack is to display its printString ...)"
 
     "/ 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 ifTrue:[
-        aGCOrStream nextPutAll:(self class name).
-        aGCOrStream nextPutAll:('(%1 x %2' bindWith:width with:height).
-        fileName notNil ifTrue:[ aGCOrStream nextPutAll:(' from "%1"' bindWith:fileName) ].
-        aGCOrStream nextPutAll:')'.
-        ^ self
-    ].
-    super displayOn:aGCOrStream.
+    "/ old ST80 means: draw-yourself on a GC.
+    aGCOrStream isStream ifFalse:[
+        ^ super displayOn:aGCOrStream.
+    ].
+    
+    aGCOrStream nextPutAll:(self class name).
+    aGCOrStream nextPutAll:('(%1 x %2' bindWith:width with:height).
+    fileName notNil ifTrue:[ aGCOrStream nextPutAll:(' from "%1"' bindWith:fileName) ].
+    aGCOrStream nextPutAll:')'.
 
     "Created: / 22-02-2017 / 15:51:29 / cg"
+    "Modified (format): / 22-02-2017 / 17:03:50 / cg"
 !
 
 displayOn:aGC x:x y:y