# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 857661262 -3600
# Node ID 0efbd1ac68f4dd62f65376252de21c09f418a26c
# Parent  d68cff021b9a0e092d9cf3f29f29c1a8addead02
use new #changedPreferredBounds

diff -r d68cff021b9a -r 0efbd1ac68f4 EditField.st
--- a/EditField.st	Thu Mar 06 15:46:41 1997 +0100
+++ b/EditField.st	Thu Mar 06 16:14:22 1997 +0100
@@ -1207,13 +1207,15 @@
 
     l := someText.
     l size > 1 ifTrue:[
-	l := OrderedCollection with:(l at:1)
+        l := OrderedCollection with:(l at:1)
     ].
     oldWidth := self widthOfContents.
     super list:l.
     self widthOfContents ~~ oldWidth ifTrue:[
-	self changed:#preferredExtent
+        self changedPreferredBounds:nil
     ]
+
+    "Modified: 6.3.1997 / 16:13:36 / cg"
 !
 
 stringValue
@@ -1573,32 +1575,34 @@
     "
     xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - leftOffset.
     (xCol > (width * (5/6))) ifTrue:[
-	self changed:#preferredExtent
+        self changedPreferredBounds:nil
     ] ifFalse:[
-	newWidth < (width * (1/6)) ifTrue:[
-	    self changed:#preferredExtent
-	]
+        newWidth < (width * (1/6)) ifTrue:[
+            self changedPreferredBounds:nil
+        ]
     ].
 
     autoScrollHorizontally ifTrue:[
-	"
-	 did someone react (i.e. has my extent changed) ?
-	 (if not, we scroll horizontally)
-	"
-	xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - leftOffset.
-	(xCol > (width * (5/6))) ifTrue:[
-	    newOffset := leftOffset + (width // 2).
-	] ifFalse:[
-	    (xCol < (width * (1/6))) ifTrue:[
-		newOffset := 0 max: leftOffset - (width // 2).
-	    ] ifFalse:[
-		newOffset := leftOffset
-	    ]
-	].
-	newOffset ~~ leftOffset ifTrue:[
-	    self scrollHorizontalTo:newOffset.
-	]
+        "
+         did someone react (i.e. has my extent changed) ?
+         (if not, we scroll horizontally)
+        "
+        xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - leftOffset.
+        (xCol > (width * (5/6))) ifTrue:[
+            newOffset := leftOffset + (width // 2).
+        ] ifFalse:[
+            (xCol < (width * (1/6))) ifTrue:[
+                newOffset := 0 max: leftOffset - (width // 2).
+            ] ifFalse:[
+                newOffset := leftOffset
+            ]
+        ].
+        newOffset ~~ leftOffset ifTrue:[
+            self scrollHorizontalTo:newOffset.
+        ]
     ].
+
+    "Modified: 6.3.1997 / 16:13:59 / cg"
 !
 
 showFocus:explicit
@@ -1925,5 +1929,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.84 1997-02-28 18:47:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.85 1997-03-06 15:14:22 cg Exp $'
 ! !