--- a/TopView.st	Mon Sep 02 12:18:32 2002 +0200
+++ b/TopView.st	Mon Sep 02 12:19:13 2002 +0200
@@ -291,7 +291,7 @@
      This prefers inputFields over editTextViews 
      (which may change in the future)"
 
-    |firstConsumer|
+    |firstConsumer firstCursorConsumer consumer|
 
     self allSubViewsDo:[:v |
         v isInputField ifTrue:[
@@ -306,11 +306,15 @@
         (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
             firstConsumer := v
         ].
+        (firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
+            firstCursorConsumer := v
+        ].
     ].
-    firstConsumer notNil ifTrue:[
-        firstConsumer requestFocus.
+    consumer := (firstConsumer ? firstCursorConsumer).
+    consumer notNil ifTrue:[
+        consumer requestFocus.
         "/ firstConsumer requestFocus. - could be denied; but we force it here
-        windowGroup focusView:firstConsumer byTab:false.
+        windowGroup focusView:consumer byTab:false.
     ].
 
     "Modified: / 20.5.1999 / 18:14:16 / cg"
@@ -781,5 +785,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.75 2002-08-22 16:51:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.76 2002-09-02 10:19:13 cg Exp $'
 ! !