--- a/DialogBox.st	Wed Nov 07 14:25:17 2018 +0100
+++ b/DialogBox.st	Fri Nov 09 08:46:44 2018 +0100
@@ -9296,9 +9296,15 @@
      The inputField gets model as its model.
      Return the inputField."
 
-
+    |field|
+
+    field := EditField on:model.
+    field acceptOnLeave:true.
+    field acceptOnLostFocus:true.
+    field inspect.
+    
     ^ self 
-        addLabelledField:(EditField on:model) label:labelString 
+        addLabelledField:field label:labelString 
         adjust:labelAdjust
         tabable:tabable 
         separateAtX:relativeX.
@@ -9355,8 +9361,9 @@
      ].
     "
 
-    "Created: 13.4.1996 / 13:41:31 / cg"
-    "Modified: 19.4.1996 / 17:39:46 / cg"
+    "Created: / 13-04-1996 / 13:41:31 / cg"
+    "Modified: / 19-04-1996 / 17:39:46 / cg"
+    "Modified: / 09-11-2018 / 00:09:41 / Claus Gittinger"
 ! !
 
 !DialogBox methodsFor:'construction-layout'!