--- a/TopView.st	Thu May 20 18:35:21 1999 +0200
+++ b/TopView.st	Thu May 20 18:35:46 1999 +0200
@@ -247,8 +247,12 @@
         ].
     ].
     firstConsumer notNil ifTrue:[
-        firstConsumer requestFocus
+        firstConsumer requestFocus.
+        "/ firstConsumer requestFocus. - could be denied; but we force it here
+        windowGroup focusView:firstConsumer byTab:false.
     ].
+
+    "Modified: / 20.5.1999 / 18:14:16 / cg"
 !
 
 destroy
@@ -641,5 +645,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.57 1999-04-24 20:06:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.58 1999-05-20 16:35:46 cg Exp $'
 ! !