'From Squeak3.2alpha of 2 October 2001 [latest update: #4445] on 28 October 2001 at 12:14:11 pm'! "Change Set: AllObjectsSelect Date: 28 October 2001 Author: Dan Ingalls Adds Smalltalk allObjectsSelect: as companion to allObjectsDo:. "! !SystemDictionary methodsFor: 'retrieving' stamp: 'di 10/28/2001 10:51'! allObjectsSelect: aBlock "Evaluate the argument, aBlock, for each object in the system excluding SmallIntegers. Return a collection af all objects for whom the value is true." ^ Array streamContents: [:s | self allObjectsDo: [:object | (aBlock value: object) ifTrue: [s nextPut: object]]]! !