--- a/DialogBox.st	Fri Mar 05 23:48:47 1999 +0100
+++ b/DialogBox.st	Sat Mar 06 02:28:50 1999 +0100
@@ -3685,9 +3685,12 @@
      a topLevel component."
 
     inputFieldGroup isNil ifTrue:[
-	inputFieldGroup := EnterFieldGroup new.
-	inputFieldGroup leaveAction:[self lastFieldLeft].
-	aComponentOrSubcomponent hasKeyboardFocus:true.
+        inputFieldGroup := EnterFieldGroup new.
+        inputFieldGroup leaveAction:[self lastFieldLeft].
+        "/
+        "/ the first inputField gets the focus initially
+        "/
+        aComponentOrSubcomponent hasKeyboardFocus:true.
     ].
     inputFieldGroup add:aComponentOrSubcomponent before:anotherComponent.
     self delegate:(KeyboardForwarder to:inputFieldGroup condition:#noFocus).
@@ -5891,6 +5894,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.127 1999-03-05 10:10:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.128 1999-03-06 01:28:50 cg Exp $'
 ! !
 DialogBox initialize!