--- a/TextView.st	Thu Aug 22 18:54:57 2002 +0200
+++ b/TextView.st	Fri Aug 23 10:49:39 2002 +0200
@@ -1130,7 +1130,10 @@
         clickStartLine := clickLine.
         clickStartCol := clickCol.
 
-        (self canDrag and:[self isInSelection:clickLine col:clickCol]) ifTrue:[
+        (self canDrag 
+        and:[(self isInSelection:clickLine col:clickCol)
+        and:[UserPreferences current startTextDragWithControl not
+             or:[sensor ctrlDown]]]) ifTrue:[
             dragIsActive := true
         ] ifFalse:[
             self unselect.
@@ -3556,6 +3559,6 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.184 2002-08-22 12:25:06 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.185 2002-08-23 08:49:39 cg Exp $'
 ! !
 TextView initialize!