--- a/TopView.st	Tue Dec 11 11:09:48 2001 +0100
+++ b/TopView.st	Wed Dec 12 16:50:56 2001 +0100
@@ -281,7 +281,12 @@
 
     self allSubViewsDo:[:v |
         v isInputField ifTrue:[
-            v requestFocus. "/ self windowGroup focusView:v.
+            "/ self windowGroup focusView:v.       -- very old
+            device platformName = 'WIN32' ifTrue:[
+                self windowGroup focusView:v byTab:true.
+            ] ifFalse:[
+                v requestFocus.                    
+            ].
             ^ self
         ].
         (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
@@ -741,5 +746,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.70 2001-10-11 16:28:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.71 2001-12-12 15:50:56 cg Exp $'
 ! !