--- a/TopView.st	Mon Jun 14 23:46:34 2004 +0200
+++ b/TopView.st	Mon Jun 21 10:25:22 2004 +0200
@@ -750,12 +750,6 @@
     ^ width
 !
 
-window
-    "for compatibility with applicationModels ... return the receiver"
-
-    ^ self
-!
-
 windowStyle
     "return a symbol describing my style (one of: #dialog, #popUp, #undecorated or #normal)
      (used by the device as a decoration hint)"
@@ -1048,7 +1042,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.90 2004-05-17 16:51:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.91 2004-06-21 08:25:22 ca Exp $'
 ! !
 
 TopView initialize!