# HG changeset patch
# User ca
# Date 861441885 -7200
# Node ID 1c5390d2d3fb1c09f94c47519a6f03b600d73b8a
# Parent  7d119e8057bccdb8b305ef2acb5b7f4d3da6a4f4
care for failed selection when positioning cursor.

diff -r 7d119e8057bc -r 1c5390d2d3fb ETxtView.st
--- a/ETxtView.st	Fri Apr 18 21:11:54 1997 +0200
+++ b/ETxtView.st	Sat Apr 19 11:24:45 1997 +0200
@@ -3911,7 +3911,9 @@
      for easier editing. Also typeOfSelection is nilled here."
 
     super selectFromLine:startLine col:startCol toLine:endLine col:endCol.
-    self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    selectionEndLine notNil ifTrue:[
+        self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    ].
     typeOfSelection := nil
 !
 
@@ -4030,5 +4032,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.120 1997-04-02 15:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.121 1997-04-19 09:24:45 ca Exp $'
 ! !
diff -r 7d119e8057bc -r 1c5390d2d3fb EditTextView.st
--- a/EditTextView.st	Fri Apr 18 21:11:54 1997 +0200
+++ b/EditTextView.st	Sat Apr 19 11:24:45 1997 +0200
@@ -3911,7 +3911,9 @@
      for easier editing. Also typeOfSelection is nilled here."
 
     super selectFromLine:startLine col:startCol toLine:endLine col:endCol.
-    self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    selectionEndLine notNil ifTrue:[
+        self cursorLine:selectionEndLine col:(selectionEndCol + 1).
+    ].
     typeOfSelection := nil
 !
 
@@ -4030,5 +4032,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.120 1997-04-02 15:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.121 1997-04-19 09:24:45 ca Exp $'
 ! !