--- a/ApplicationModel.st	Wed Jul 01 06:52:18 2015 +0200
+++ b/ApplicationModel.st	Sat Jul 11 06:35:55 2015 +0200
@@ -3402,6 +3402,14 @@
    ^ (win := self window) notNil and:[win isOpen]
 !
 
+isShown
+   "answer true if the application's window is shown"
+
+   |win|
+
+   ^ (win := self window) notNil and:[win shown]
+!
+
 isWebService
     ^ device notNil and:[ device askFor:#isWebServiceDevice ]
 !
@@ -4137,11 +4145,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.365 2015-05-09 07:52:00 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.365 2015-05-09 07:52:00 cg Exp $'
+    ^ '$Header$'
 ! !