--- 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 $'
! !