--- a/Object.st	Mon Oct 30 19:55:31 1995 +0100
+++ b/Object.st	Tue Oct 31 01:34:36 1995 +0100
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.66 1995-10-25 13:40:31 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.67 1995-10-31 00:34:36 stefan Exp $
 '!
 
 !Object class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.66 1995-10-25 13:40:31 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.67 1995-10-31 00:34:36 stefan Exp $
 "
 !
 
@@ -3959,6 +3959,14 @@
     ^ aGc displayString:(self displayString) x:x y:y.
 !
 
+displayOn:aGc at:aPoint
+    "ST-80 Compatibility
+     display the receiver in a graphicsContext - this method allows
+     for any object to be displayed in a ListView - for example."
+
+    ^ self displayOn:aGc x:(aPoint x) y:(aPoint y).
+!
+
 storeOn:aStream
     "store the receiver on aStream; i.e. print an expression which will
      reconstruct the receiver.