--- a/View.st	Thu Apr 03 16:34:01 2014 +0200
+++ b/View.st	Thu Apr 03 16:34:55 2014 +0200
@@ -759,12 +759,12 @@
     ].
     consumer := (consumer ? firstConsumer ? firstCursorConsumer).
     consumer notNil ifTrue:[
-        self graphicsDevice platformName = #WIN32 ifTrue:[
+        self graphicsDevice isWindowsPlatform ifTrue:[
             self windowGroup focusView:consumer byTab:true.
         ] ifFalse:[
             consumer requestFocus.
             "/ consumer requestFocus. - could be denied; but we force it here
-            windowGroup focusView:consumer byTab:false.
+            self windowGroup focusView:consumer byTab:false.
         ].
     ].
 
@@ -814,6 +814,6 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.83 2014-02-18 17:17:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.84 2014-04-03 14:34:55 cg Exp $'
 ! !