--- 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 $'
! !