--- 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