changed #extendSelectionToX:y:
authorClaus Gittinger <cg@exept.de>
Mon, 05 Feb 2007 10:59:55 +0100
changeset 3443 09a7671630a9
parent 3442 418b14cb6a78
child 3444 45ecceb4be8e
changed #extendSelectionToX:y:
TextView.st
--- a/TextView.st	Mon Jan 22 12:18:15 2007 +0100
+++ b/TextView.st	Mon Feb 05 10:59:55 2007 +0100
@@ -1465,6 +1465,10 @@
 
     "find out if we are before or after initial click"
     movedUp := false.
+    clickStartLine isNil ifTrue:[
+        clickStartLine := movedLine.
+    ].
+
     (movedLine < clickStartLine) ifTrue:[
         movedUp := true
     ] ifFalse:[
@@ -1561,7 +1565,7 @@
     clickLine := movedLine.
     clickCol := movedCol
 
-    "Modified: / 28.7.1998 / 16:02:18 / cg"
+    "Modified: / 30-01-2007 / 17:32:59 / cg"
 !
 
 keyPress:key x:x y:y
@@ -3924,7 +3928,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.275 2007-01-12 17:38:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.276 2007-02-05 09:59:55 cg Exp $'
 ! !
 
 TextView initialize!