--- a/WindowGroup.st	Thu May 22 12:41:17 2008 +0200
+++ b/WindowGroup.st	Thu May 22 13:16:47 2008 +0200
@@ -528,17 +528,6 @@
     "Modified: 7.3.1996 / 14:29:46 / cg"
 !
 
-isPopUp
-    "return true, if the receiver is for a popUp view"
-
-    isModal ifFalse:[^ false].
-    topViews isNil ifTrue:[^ true]. "/ a closed popup ...
-    ^ topViews first isPopUpView
-
-    "Created: / 9.7.1998 / 01:13:01 / cg"
-    "Modified: / 9.7.1998 / 01:17:11 / cg"
-!
-
 mainGroup
     "return the main windowgroup (for modal groups only) 
      that is the top one, which is not modal.
@@ -2359,6 +2348,25 @@
     aStream nextPutAll:('WindowGroup(' , myProcess nameOrId , ')')
 ! !
 
+!WindowGroup methodsFor:'queries'!
+
+anyViewHasFocus
+    ^ graphicsDevice notNil
+    and:[ graphicsDevice focusView notNil
+    and:[ graphicsDevice focusView windowGroup == self ]]
+!
+
+isPopUp
+    "return true, if the receiver is for a popUp view"
+
+    isModal ifFalse:[^ false].
+    topViews isNil ifTrue:[^ true]. "/ a closed popup ...
+    ^ topViews first isPopUpView
+
+    "Created: / 9.7.1998 / 01:13:01 / cg"
+    "Modified: / 9.7.1998 / 01:17:11 / cg"
+! !
+
 !WindowGroup methodsFor:'special'!
 
 migrateTo:anotherDisplay
@@ -2690,7 +2698,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.290 2008-04-25 14:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.291 2008-05-22 11:16:47 cg Exp $'
 ! !
 
 WindowGroup initialize!