--- a/EditTextView.st	Fri Apr 07 18:34:32 2006 +0200
+++ b/EditTextView.st	Fri Apr 07 19:43:13 2006 +0200
@@ -1897,7 +1897,9 @@
 setCursorLine:lineNr
     "strictly private: set the cursorLine"
 
-    cursorLine := lineNr.
+    "/ self assert:(lineNr notNil).
+
+    cursorLine := (lineNr ? 1).
     cursorLineHolder value:cursorLine.
     self updateCursorVisibleLine.
 !
@@ -3753,7 +3755,6 @@
 !
 
 cursorKeyPress:key shifted:shifted
-
     |n|
 
     self changeTypeOfSelectionTo:nil.
@@ -3773,7 +3774,7 @@
                 "/
                 "/ treat the whole selection as cursor
                 "/
-                self setCursorLine:selectionEndLine.
+                self setCursorLine:(selectionEndLine ? selectionStartLine).
                 selectionEndCol == 0 ifTrue:[
                     selectionEndCol := 1.
                 ].
@@ -3808,7 +3809,7 @@
                 "/
                 "/ treat the whole selection as cursor
                 "/
-                self setCursorLine:selectionEndLine.
+                self setCursorLine:(selectionEndLine ? selectionStartLine).
                 self setCursorCol:selectionStartCol.
                 cursorCol == 0 ifTrue:[
                     self setCursorCol:1.
@@ -6532,5 +6533,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.393 2006-03-30 12:41:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.394 2006-04-07 17:43:13 cg Exp $'
 ! !