--- a/EditTextView.st Mon Jan 01 11:07:39 2018 +0100
+++ b/EditTextView.st Sat Jan 13 11:47:39 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -6277,11 +6279,11 @@
]
] ifFalse:[
"check if deletion is ok"
- d := delta negated + 1.
+ d := delta negated.
line size > d ifTrue:[
- (line copyTo:(d - 1)) withoutSeparators isEmpty ifTrue:[
- line := line copyFrom:d
+ (line copyTo:d) withoutSeparators isEmpty ifTrue:[
+ line := line copyFrom:(d+1)
]
].
widthOfWidestLine := nil