--- a/TopView.st	Wed Apr 02 14:14:16 1997 +0200
+++ b/TopView.st	Wed Apr 02 15:47:49 1997 +0200
@@ -73,6 +73,15 @@
 
 !TopView methodsFor:'ST-80 compatibility'!
 
+close
+    "same as destroy - for ST-80 compatibility"
+
+    self destroy
+
+    "Created: 2.4.1997 / 13:34:40 / cg"
+    "Modified: 2.4.1997 / 15:47:42 / cg"
+!
+
 displayBox
     ^ self bounds
 
@@ -533,5 +542,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.43 1997-03-22 14:21:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.44 1997-04-02 13:47:49 cg Exp $'
 ! !