--- a/WindowGroup.st	Mon May 17 18:50:36 2004 +0200
+++ b/WindowGroup.st	Mon May 17 18:52:20 2004 +0200
@@ -1869,9 +1869,16 @@
 !WindowGroup methodsFor:'focus control'!
 
 defaultKeyboardConsumer
+    |view keyboardProcessor|
+
+    view := self mainView.
+    view notNil ifTrue:[
+        keyboardProcessor := view keyboardProcessor.
+        keyboardProcessor notNil ifTrue:[
+            ^ keyboardProcessor componentWithInitialFocus.
+        ]
+    ].
     ^ nil
-
-    "Created: / 20.5.1999 / 18:17:07 / cg"
 !
 
 explicitFocusView
@@ -2740,7 +2747,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.263 2004-05-13 18:47:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.264 2004-05-17 16:52:20 cg Exp $'
 ! !
 
 WindowGroup initialize!