checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 11 Feb 2004 23:08:57 +0100
changeset 2861 247b5c6893a4
parent 2860 69d838dd825c
child 2862 01cd6e12824a
checkin from browser
TextView.st
--- a/TextView.st	Wed Feb 11 23:07:50 2004 +0100
+++ b/TextView.st	Wed Feb 11 23:08:57 2004 +0100
@@ -1152,8 +1152,10 @@
                          to:((selectionEndCol max:oldEndCol) max:1)
         ]
     ] ifFalse:[
-        self redrawFromLine:(oldEndLine min:selectionEndLine)
-                         to:(oldEndLine max:selectionEndLine)
+        selectionStartLine notNil ifTrue:[
+            self redrawFromLine:(oldEndLine min:selectionEndLine)
+                             to:(oldEndLine max:selectionEndLine)
+        ]
     ].
     clickLine := movedLine.
     clickCol := movedCol
@@ -3742,7 +3744,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.226 2004-02-11 18:52:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.227 2004-02-11 22:08:57 cg Exp $'
 ! !
 
 TextView initialize!