SelectionInListView.st
changeset 3917 4267c0a42fa9
parent 3912 303733585541
child 3930 73c6c9ae4fb7
--- a/SelectionInListView.st	Tue Sep 15 20:21:26 2009 +0200
+++ b/SelectionInListView.st	Tue Sep 15 21:01:14 2009 +0200
@@ -3111,6 +3111,9 @@
             (self isInSelection:listLineNr) ifFalse:[
                 self selectWithoutScroll:listLineNr.
                 selectMode := false.
+                (selection ~= oldSelection) ifTrue:[
+                    self selectionChangedFrom:oldSelection.
+                ].
             ].
         ] ifFalse:[
             (toggleSelect and:[self isInSelection:listLineNr]) ifTrue:[
@@ -3126,11 +3129,10 @@
                 ].
                 selectMode := true.
             ].
-        ].
-
-        ((ignoreReselect not and:[selection notNil])
-         or:[selection ~= oldSelection]) ifTrue:[
-            self selectionChangedFrom:oldSelection.
+            ((ignoreReselect not and:[selection notNil])
+             or:[selection ~= oldSelection]) ifTrue:[
+                self selectionChangedFrom:oldSelection.
+            ].
         ].
         clickLine := listLineNr
     ].
@@ -4070,5 +4072,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.250 2009-09-15 18:15:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.251 2009-09-15 19:01:14 cg Exp $'
 ! !