--- a/TextView.st	Tue Apr 22 12:55:27 2008 +0200
+++ b/TextView.st	Tue Apr 22 17:32:15 2008 +0200
@@ -1271,7 +1271,7 @@
 
     |sel ch matchCol scanCol fwdScan fwdSelect|
 
-    self st80SelectMode ifTrue:[
+    (self st80SelectMode or:[ self sensor ctrlDown]) ifTrue:[
         "/ st80 selects:
         "/   if clicked right after a parenthesis -> select to matching parenthesis
         "/   if clicked at beginning of the line  -> select that line
@@ -4067,7 +4067,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.284 2008-04-04 16:28:40 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.285 2008-04-22 15:32:15 cg Exp $'
 ! !
 
 TextView initialize!