--- a/EditField.st	Thu Mar 30 21:55:18 2017 +0200
+++ b/EditField.st	Thu Mar 30 22:26:44 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -1798,12 +1796,13 @@
      should (& can) we resize ?
     "
     xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - viewOrigin x.
-    (xCol > (width - 150 "* (5/6)")) ifTrue:[
+    (xCol > (width - 50 "* (5/6)")) ifTrue:[
         self changedPreferredBounds:nil
     ] ifFalse:[
-        newWidth < (width * (2/6)) ifTrue:[
-            self changedPreferredBounds:nil
-        ]
+"/ Do not shrink!! Enterbox grows if size of contained Editfield changes!!    
+"/        newWidth < (width * (1/3)) ifTrue:[
+"/            self changedPreferredBounds:nil
+"/        ]
     ].
 
     autoScrollHorizontally ifTrue:[
@@ -1834,6 +1833,8 @@
     ].
 
     "Modified: / 15-03-2017 / 19:22:56 / cg"
+    "Modified: / 30-03-2017 / 18:46:50 / stefan"
+    "Modified (format): / 30-03-2017 / 22:24:58 / stefan"
 !
 
 sizeChanged:how