--- a/SimpleView.st	Fri Sep 20 11:05:16 2013 +0200
+++ b/SimpleView.st	Tue Sep 24 22:10:04 2013 +0200
@@ -10759,10 +10759,10 @@
                     Delay waitForSeconds:0.05.
                     aWindowGroup processExposeEvents.
 
-                    ReturnFocusWhenClosingModalBoxes ifTrue:[
+                    (self isPopUpView or:[ ReturnFocusWhenClosingModalBoxes ]) ifTrue:[
                         "
                          return the input focus to the previously active group's top.
-                         This helps with windowmanagers which need an explicit click
+                         This helps with window managers which need an explicit click
                          on the view for the focus.
                         "
                         tops := aWindowGroup topViews.
@@ -11175,11 +11175,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.735 2013-09-18 09:26:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.736 2013-09-24 20:10:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.735 2013-09-18 09:26:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.736 2013-09-24 20:10:04 cg Exp $'
 !
 
 version_SVN