--- a/SelectionInListModelView.st Thu Mar 28 09:14:19 2019 +0100
+++ b/SelectionInListModelView.st Thu Mar 28 15:35:50 2019 +0100
@@ -2623,6 +2623,7 @@
selectElements:aCollectionOfElements ifAnyAbsent:exceptionalValue
|indices setOfElements searchStart|
+"/ Transcript show:'view index search time:'; showCR:(Time millisecondsToRun:[
aCollectionOfElements size > 10 ifTrue:[
setOfElements := aCollectionOfElements asIdentitySet.
indices := (1 to:list size) select:[:idx |
@@ -2651,6 +2652,7 @@
idx.
].
].
+"/ ]).
self selection:indices
!