--- a/Image.st	Sun May 12 19:42:55 1996 +0200
+++ b/Image.st	Sun May 12 20:44:31 1996 +0200
@@ -2360,9 +2360,19 @@
     "draw the receiver in the graphicsContext, aGC.
      Smalltalk-80 compatibility"
 
-    aGC displayForm:self x:aPoint x y:aPoint y.
+    self displayOn:aGC x:aPoint x y:aPoint y.
+
+    "Modified: 12.5.1996 / 20:16:38 / cg"
+!
+
+displayOn:aGC x:x y:y
+    "draw the receiver in the graphicsContext, aGC.
+     Smalltalk-80 compatibility"
+
+    aGC displayForm:self x:x y:y.
 
     "Modified: 23.4.1996 / 11:12:31 / cg"
+    "Created: 12.5.1996 / 20:14:31 / cg"
 ! !
 
 !Image methodsFor:'enumerating'!
@@ -3580,6 +3590,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.67 1996-05-07 17:28:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.68 1996-05-12 18:44:31 cg Exp $'
 ! !
 Image initialize!