--- a/TopView.st	Thu Apr 03 16:34:55 2014 +0200
+++ b/TopView.st	Thu Apr 03 16:35:54 2014 +0200
@@ -1380,7 +1380,7 @@
             self getKeyboardFocus.
         ]
     ].
-    self graphicsDevice platformName = #WIN32 ifTrue:[
+    self graphicsDevice isWindowsPlatform ifTrue:[
         self raise
     ].
     false "self isScreenDialog" ifTrue:[
@@ -1443,11 +1443,11 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.148 2014-02-18 17:12:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.149 2014-04-03 14:35:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.148 2014-02-18 17:12:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.149 2014-04-03 14:35:54 cg Exp $'
 ! !