changeset 6038 | a26af42fdc1f |
parent 6037 | d446c3eccc41 |
child 6039 | 121d71b79bda |
--- a/SelectionInListModelView.st Thu Mar 28 09:13:28 2019 +0100 +++ b/SelectionInListModelView.st Thu Mar 28 09:14:19 2019 +0100 @@ -2623,7 +2623,7 @@ selectElements:aCollectionOfElements ifAnyAbsent:exceptionalValue |indices setOfElements searchStart| - aCollectionOfElements size > 20 ifTrue:[ + aCollectionOfElements size > 10 ifTrue:[ setOfElements := aCollectionOfElements asIdentitySet. indices := (1 to:list size) select:[:idx | setOfElements includes:(list at:idx).