--- a/EditTextView.st Tue Feb 27 12:01:00 2018 +0100
+++ b/EditTextView.st Thu Mar 01 10:44:11 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1494,17 +1496,18 @@
^ line copyTo:(cursorCol-1)
!
-list:something
+list:newCollectionOfLinesOrNil
"replace the whole contents by something new.
this is not undoably, unless you care for yourself.
- position cursor home when setting contents"
+ Positions the cursor as defined in cursorMovementWhenUpdating
+ (which defaults to: home)"
|prevCursorLine prevCursorCol|
prevCursorLine := cursorLine.
prevCursorCol := cursorCol.
- super list:something.
+ super list:newCollectionOfLinesOrNil.
(cursorMovementWhenUpdating == #endOfText
or:[cursorMovementWhenUpdating == #end]) ifTrue:[