--- a/EnterBox.st	Wed May 03 18:30:51 1995 +0200
+++ b/EnterBox.st	Sat May 06 16:18:13 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.21 1995-05-03 00:29:20 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.22 1995-05-06 14:17:02 claus Exp $
 "
 !
 
@@ -259,9 +259,10 @@
 
 createEnterField
     "this has been extracted from the initialize method
-     to allow redefinition in subclasses. (FilenameEnterBox for example)"
+     to allow redefinition in subclasses. (FilenameEnterBox for example).
+     It shall return a new instance of the desired editField class."
 
-    enterField := EditField in:self.
+     ^ EditField new.
 !
 
 initialize
@@ -285,7 +286,7 @@
 	leftInset:ViewSpacing; 
 	rightInset:ViewSpacing.
 
-    self createEnterField.
+    self addComponent:(enterField := self createEnterField).
     enterField 
 	origin:[0.0 @ (space2 + labelField preferedExtent y "height")]
 	extent:[1.0 @ enterField height].
@@ -299,7 +300,8 @@
     "
      forward keyboard input to the enterfield
     "
-    self delegate:(KeyboardForwarder to:enterField condition:#noFocus)
+    self delegate:(KeyboardForwarder to:enterField condition:#noFocus).
+    enterField hasKeyboardFocus:true.
 !
 
 reAdjustGeometry