ctrl-click toggles
authorClaus Gittinger <cg@exept.de>
Sun, 22 Jul 2007 20:50:46 +0200
changeset 3239 7b18b6694058
parent 3238 c3834ec3a914
child 3240 2afa6e06b634
ctrl-click toggles
DSVColumnView.st
--- a/DSVColumnView.st	Wed Jul 18 15:48:19 2007 +0200
+++ b/DSVColumnView.st	Sun Jul 22 20:50:46 2007 +0200
@@ -2113,13 +2113,17 @@
     |isSelected prvRow doAdd chgSet|
 
     buttonMotionAction := buttonReleaseAction := nil.
+    isSelected := self isInSelection:aRowNr.
+
     multipleSelectOk ifFalse:[
-        self selectRowAt:aRowNr colAt:aColNr atPoint:clickPoint openEditor:false.
+        isSelected ifTrue:[
+            self deselect.
+        ] ifFalse:[
+            self selectRowAt:aRowNr colAt:aColNr atPoint:clickPoint openEditor:false.
+        ].
         ^ self
     ].
 
-    isSelected := self isInSelection:aRowNr.
-
     isSelected ifTrue:[ self removeRowFromSelection:aRowNr ]
               ifFalse:[ self addRowToSelection:aRowNr ].
 
@@ -2167,7 +2171,7 @@
         ].
     ].
 
-    "Modified: / 22-10-2006 / 11:35:54 / cg"
+    "Modified: / 21-07-2007 / 22:00:27 / cg"
 !
 
 buttonMotion:buttonMask x:x y:y 
@@ -4334,5 +4338,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.226 2007-03-27 13:32:06 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.227 2007-07-22 18:50:46 cg Exp $'
 ! !