#close moved up.
authorClaus Gittinger <cg@exept.de>
Wed, 02 Apr 1997 20:16:13 +0200
changeset 1519 790f9af6c878
parent 1518 aa610d7fd205
child 1520 bc88c7620d72
#close moved up.
TopView.st
--- a/TopView.st	Wed Apr 02 20:15:45 1997 +0200
+++ b/TopView.st	Wed Apr 02 20:16:13 1997 +0200
@@ -73,15 +73,6 @@
 
 !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
 
@@ -542,5 +533,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.44 1997-04-02 13:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.45 1997-04-02 18:16:13 cg Exp $'
 ! !