SelectionInListView.st
changeset 2758 a91d29f612b5
parent 2744 cb920467a4b4
child 2761 30863cd1c0f6
--- a/SelectionInListView.st	Sun May 11 19:47:39 2003 +0200
+++ b/SelectionInListView.st	Mon May 12 16:45:50 2003 +0200
@@ -3324,7 +3324,6 @@
     clickLine isNil ifTrue:[^ self].
 
     movedLine := self visibleLineToAbsoluteLine:(self visibleLineOfY:y).
-
     self multipleSelectOk ifTrue:[
         selectionAtClickTime isNil ifTrue:[
             selectionAtClickTime := selection copy.
@@ -3651,7 +3650,7 @@
 
     newSelection notNil ifTrue:[
         (self isValidSelection:newSelection) ifFalse:[
-            newSelection := nil
+            newSelection := newSelection select:[:each | self isValidSelection:each].
         ].
         newSelection == 0 ifTrue:[
             newSelection := nil
@@ -3914,5 +3913,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.213 2003-05-07 14:30:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.214 2003-05-12 14:45:50 cg Exp $'
 ! !