TextView.st
changeset 3505 cdb364dede3e
parent 3496 8c92a96c4e27
child 3528 753b5270dc2a
--- a/TextView.st	Wed Oct 10 13:48:48 2007 +0200
+++ b/TextView.st	Wed Oct 17 15:13:08 2007 +0200
@@ -1469,6 +1469,9 @@
     clickStartLine isNil ifTrue:[
         clickStartLine := movedLine.
     ].
+    clickStartCol isNil ifTrue:[
+        clickStartCol := movedCol.
+    ].
 
     (movedLine < clickStartLine) ifTrue:[
         movedUp := true
@@ -1566,7 +1569,7 @@
     clickLine := movedLine.
     clickCol := movedCol
 
-    "Modified: / 30-01-2007 / 17:32:59 / cg"
+    "Modified: / 17-10-2007 / 15:13:51 / cg"
 !
 
 keyPress:key x:x y:y
@@ -3932,7 +3935,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.280 2007-09-17 09:36:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.281 2007-10-17 13:13:08 cg Exp $'
 ! !
 
 TextView initialize!