--- a/ApplicationModel.st	Mon Jun 25 09:44:30 2001 +0200
+++ b/ApplicationModel.st	Thu Jul 05 16:53:01 2001 +0200
@@ -2098,6 +2098,14 @@
     "Modified: / 25.1.1998 / 19:47:09 / cg"
 !
 
+isOpen
+   "answer true if the application's window is open"
+
+   |win|
+
+   ^ (win := self window) notNil and:[win isOpen]
+!
+
 processName
     "return a name to be shown for me in the process monitor"
 
@@ -2500,6 +2508,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.156 2001-06-22 15:51:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.157 2001-07-05 14:53:01 stefan Exp $'
 ! !
 ApplicationModel initialize!