--- a/EditTextView.st	Thu Oct 02 22:20:47 2003 +0200
+++ b/EditTextView.st	Thu Oct 02 23:34:12 2003 +0200
@@ -1758,7 +1758,7 @@
 setCursorCol:colNr
     "strictly private: set the cursorCol"
 
-    cursorCol := colNr.
+    cursorCol := (colNr max:1).
     cursorColHolder value:cursorCol.
 !
 
@@ -4217,11 +4217,11 @@
     fixedSize := false.
     exceptionBlock := [:errorText | ].
     cursorShown := prevCursorState := true.
-    cursorLineHolder := 1 asValue.
-    cursorColHolder := 1 asValue.
     cursorLine := 1.
     cursorVisibleLine := 1.
     cursorCol := 1.
+    cursorLineHolder := 1 asValue.
+    cursorColHolder := 1 asValue.
     modifiedChannel := ValueHolder with:false.
     acceptChannel := ValueHolder with:false.
     acceptChannel addDependent:self.
@@ -5561,5 +5561,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.313 2003-08-28 09:42:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.314 2003-10-02 21:34:12 cg Exp $'
 ! !