--- a/TopView.st	Thu Mar 10 14:27:21 2005 +0100
+++ b/TopView.st	Thu Mar 10 14:33:50 2005 +0100
@@ -954,7 +954,7 @@
     drawableId isNil ifTrue:[self create].
 
     device platformName = 'WIN32' ifTrue:[
-        self isPopUpView ifFalse:[
+        (self isPopUpView or:[self isModal]) ifFalse:[
             device setForegroundWindow:drawableId.
             ^ self
         ]
@@ -1203,7 +1203,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.101 2005-03-10 13:27:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.102 2005-03-10 13:33:50 cg Exp $'
 ! !
 
 TopView initialize!