--- a/TextView.st	Mon Dec 23 13:59:51 1996 +0100
+++ b/TextView.st	Thu Jan 02 13:33:15 1997 +0100
@@ -2054,10 +2054,12 @@
         selectionStartCol := startCol.
         selectionEndLine := endLine.
         selectionEndCol := endCol.
-        (startLine == endLine) ifTrue:[
-            self redrawLine:startLine from:startCol to:endCol
+        self validateNewSelection.
+
+        (selectionStartLine == selectionEndLine) ifTrue:[
+            self redrawLine:selectionStartLine from:selectionStartCol to:selectionEndCol
         ] ifFalse:[
-            startLine to:endLine do:[:lineNr |
+            selectionStartLine to:selectionEndLine do:[:lineNr |
                 self redrawLine:lineNr
             ]
         ].
@@ -2076,7 +2078,7 @@
      v selectFromLine:2 col:2 toLine:10 col:15
     "
 
-    "Modified: 29.4.1996 / 12:24:00 / cg"
+    "Modified: 2.1.1997 / 13:32:25 / cg"
 !
 
 selectFromLine:startLine toLine:endLine
@@ -2277,5 +2279,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.71 1996-12-19 13:38:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.72 1997-01-02 12:33:15 cg Exp $'
 ! !