--- a/EnterBox.st	Tue Jul 16 18:14:03 2002 +0200
+++ b/EnterBox.st	Thu Jul 18 11:25:02 2002 +0200
@@ -472,12 +472,43 @@
 
 !EnterBox methodsFor:'initialization'!
 
+addEnterField:aWidget
+    |space2 innerWidth|
+
+    enterField notNil ifTrue:[
+        enterField removeDependent:self.
+        enterField destroy.
+        enterField := nil.
+    ].
+
+    space2 := 2 * ViewSpacing.
+    innerWidth := width - space2.
+
+    self addComponent:(enterField := aWidget).
+    enterField 
+        origin:[0.0 @ (space2 + labelField preferredExtent y "height")]
+        extent:(1.0 @ enterField height).
+    enterField 
+        leftInset:ViewSpacing-enterField borderWidth; 
+        rightInset:ViewSpacing.
+
+    enterField addDependent:self. "to get preferredExtent-changes"
+
+    self makeTabable:enterField
+
+    "Modified: 31.5.1996 / 21:51:28 / cg"
+!
+
 createEnterField
     "this has been extracted from the initialize method
      to allow redefinition in subclasses. (FilenameEnterBox for example).
      It shall return a new instance of the desired editField class."
 
-     ^ EditField new.
+    |widget|
+
+    widget := EditField new.
+    widget leaveAction:[:key | self okPressed].
+    ^ widget
 !
 
 initialize
@@ -502,20 +533,7 @@
         leftInset:ViewSpacing; 
         rightInset:ViewSpacing.
 
-    self addComponent:(enterField := self createEnterField).
-    enterField 
-        origin:[0.0 @ (space2 + labelField preferredExtent y "height")]
-        extent:(1.0 @ enterField height).
-    enterField 
-        leftInset:ViewSpacing-enterField borderWidth; 
-        rightInset:ViewSpacing;
-        leaveAction:[:key | self okPressed].
-
-    enterField addDependent:self. "to get preferredExtent-changes"
-
-    self makeTabable:enterField
-
-    "Modified: 31.5.1996 / 21:51:28 / cg"
+    self addEnterField:(self createEnterField).
 !
 
 reAdjustGeometry
@@ -672,5 +690,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.56 2002-07-09 12:01:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.57 2002-07-18 09:25:02 cg Exp $'
 ! !