--- a/SelectionInListModelView.st	Thu Jul 03 13:46:02 2014 +0200
+++ b/SelectionInListModelView.st	Fri Jul 04 12:25:04 2014 +0200
@@ -2198,6 +2198,19 @@
 
 !SelectionInListModelView methodsFor:'queries'!
 
+elementsForWhich:aBlock
+    |result|
+
+    result := OrderedCollection new.
+    1 to:self size do:[:idx |
+        |el|
+
+        el := self at:idx.
+        (aBlock value:el) ifTrue:[ result add:el].
+    ].
+    ^ result
+!
+
 isCursorKeyConsumer
     "return true, if the receiver can be controlled by cursor keys;
      i.e. it can handle some keyboard input,
@@ -2799,10 +2812,10 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.169 2014-04-22 10:17:31 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.170 2014-07-04 10:25:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.169 2014-04-22 10:17:31 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.170 2014-07-04 10:25:04 cg Exp $'
 ! !