--- a/EditTextView.st Fri Aug 23 22:10:20 2019 +0200
+++ b/EditTextView.st Sat Aug 24 14:32:55 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -3276,9 +3274,13 @@
] ifFalse:[
col2 := (self listAt:lineNr) size.
].
- newLine := converter value:line value:lineNr value:col1 value:col2.
- self withoutRedrawAt:lineNr put:newLine.
- self invalidateLine:lineNr.
+ col1 isNil ifTrue:[
+ "/ no selection
+ ] ifFalse:[
+ newLine := converter value:line value:lineNr value:col1 value:col2.
+ self withoutRedrawAt:lineNr put:newLine.
+ self invalidateLine:lineNr.
+ ].
].
].
]