added #displayBox for ST-80 compatibility
authorClaus Gittinger <cg@exept.de>
Mon, 03 Mar 1997 16:35:24 +0100
changeset 1410 ee1f7f3b2dfd
parent 1409 3818a8a85c16
child 1411 86559faec840
added #displayBox for ST-80 compatibility
TopView.st
--- a/TopView.st	Mon Mar 03 15:58:43 1997 +0100
+++ b/TopView.st	Mon Mar 03 16:35:24 1997 +0100
@@ -71,6 +71,20 @@
     "Modified: 22.4.1996 / 23:39:13 / cg"
 ! !
 
+!TopView methodsFor:'ST-80 compatibility'!
+
+displayBox
+    ^ self bounds
+
+    "Created: 3.3.1997 / 16:31:33 / cg"
+!
+
+displayBox:aRectangle
+    self origin:aRectangle origin corner:aRectangle corner
+
+    "Created: 3.3.1997 / 16:34:38 / cg"
+! !
+
 !TopView methodsFor:'accessing-behavior'!
 
 beMaster
@@ -511,5 +525,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.40 1997-02-28 21:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.41 1997-03-03 15:35:24 cg Exp $'
 ! !