--- a/SimpleView.st	Fri Jun 04 16:00:43 2004 +0200
+++ b/SimpleView.st	Fri Jun 04 19:39:46 2004 +0200
@@ -7271,6 +7271,14 @@
     "Created: 19.7.1996 / 17:51:04 / cg"
 !
 
+isModal
+    "return true, if the receiver has been opened modal.
+     For compatibility with topView (if regular views are the window of an application),
+     return false here."
+
+    ^ false
+!
+
 isSameOrComponentOf:aView
     "return true, if I am aView or a (direct or indirect) component of aView"
 
@@ -9506,7 +9514,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.501 2004-04-15 08:46:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.502 2004-06-04 17:39:46 ca Exp $'
 ! !
 
 SimpleView initialize!