Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.169.mcz

==================== Summary ====================

Name: Collections-nice.169
Author: nice
Time: 20 October 2009, 9:25 am
UUID: 8423efba-a854-4304-8cdd-b77e7fb6866f
Ancestors: Collections-nice.168

Track selectors usage, use #includesSelector: #selectorsDo: and #asSet where due

=============== Diff against Collections-nice.168 ===============

Item was changed:
  ----- Method: WideString class>>allNonAsciiMethods (in category 'enumeration') -----
  allNonAsciiMethods  
  	"Answer a SortedCollection of all the methods that implement the message 
  	aSelector."
  
  	| list adder num i |
  	list := Set new.
  	adder := [ :mrClass :mrSel |
  		list add: (
  			MethodReference new
  				setStandardClass: mrClass
  				methodSymbol: mrSel
  		)
  	].
  
  	num := CompiledMethod allInstances size.
  	i := 0.
  	'processing...' displayProgressAt: Sensor cursorPoint from: 0 to: num during: [:bar |
  		SystemNavigation new allBehaviorsDo: [ :class |
+ 			class selectorsDo: [:s |
- 			class selectors do: [:s |
  				bar value: (i := i + 1).				
  				((class sourceCodeAt: s) asString isAsciiString) ifFalse: [
  					adder value: class value: s.
  				]
  			]
  		]
  	].
  
  	^ list.
  !

Item was changed:
  ----- Method: WideString class>>allMethodsWithEncodingTag: (in category 'enumeration') -----
  allMethodsWithEncodingTag: encodingTag
  	"Answer a SortedCollection of all the methods that implement the message 
  	aSelector."
  
  	| list adder num i |
  	list := Set new.
  	adder := [ :mrClass :mrSel |
  		list add: (
  			MethodReference new
  				setStandardClass: mrClass
  				methodSymbol: mrSel
  		)
  	].
  
  	num := CompiledMethod allInstances size.
  	i := 0.
  	'processing...' displayProgressAt: Sensor cursorPoint from: 0 to: num during: [:bar |
  		SystemNavigation new allBehaviorsDo: [ :class |
+ 			class selectorsDo: [:s |
- 			class selectors do: [:s |
  				bar value: (i := i + 1).				
  				(self string: (class sourceCodeAt: s) asString hasEncoding: encodingTag) ifTrue: [
  					adder value: class value: s.
  				]
  			]
  		]
  	].
  
  	^ list.
  !

Item was changed:
  ----- Method: Bag>>asSet (in category 'converting') -----
  asSet
  	"Answer a set with the elements of the receiver."
  
+ 	^ contents keys asSet!
- 	^ contents keys!

Item was changed:
  ----- Method: WideString class>>allMultiStringMethods (in category 'enumeration') -----
  allMultiStringMethods  
  	"Answer a SortedCollection of all the methods that implement the message 
  	aSelector."
  
  	| list adder num i |
  	list := Set new.
  	adder := [ :mrClass :mrSel |
  		list add: (
  			MethodReference new
  				setStandardClass: mrClass
  				methodSymbol: mrSel
  		)
  	].
  
  	num := CompiledMethod allInstances size.
  	i := 0.
  	'processing...' displayProgressAt: Sensor cursorPoint from: 0 to: num during: [:bar |
  		SystemNavigation new allBehaviorsDo: [ :class |
+ 			class selectorsDo: [:s |
- 			class selectors do: [:s |
  				bar value: (i := i + 1).				
  				((class sourceCodeAt: s) asString isOctetString) ifFalse: [
  					adder value: class value: s.
  				]
  			]
  		]
  	].
  
  	^ list.
  !