[Pkg] The Trunk: Collections-ul.451.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.451.mcz

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

Name: Collections-ul.451
Author: ul
Time: 25 July 2011, 2:09:16.563 am
UUID: 88a1eed5-6fe6-c044-9c45-f52203eb3b29
Ancestors: Collections-ul.450

- removed WideString class>>allMethodsWithEncodingTag:, because it sent an unimplemented method #string:hasEncodingTag:
- rewritten WideString class>>allMultiStringMethods and WideString class>>allNonAsciiMethods to use #allMethodsSelect: instead of reinventing the wheel. Not sure if we really need these methods here.

=============== Diff against Collections-ul.450 ===============

Item was removed:
- ----- 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...' displayProgressFrom: 0 to: num during: [:bar |
- 		SystemNavigation new allBehaviorsDo: [ :class |
- 			class selectorsDo: [: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: WideString class>>allMultiStringMethods (in category 'enumeration') -----
  allMultiStringMethods  
- 	"Answer a SortedCollection of all the methods that implement the message 
- 	aSelector."
  
+ 	^CurrentReadOnlySourceFiles cacheDuring: [
+ 		self systemNavigation allMethodsSelect: [ :method |
+ 			method getSource asString isOctetString not ] ]!
- 	| 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...' displayProgressFrom: 0 to: num during: [:bar |
- 		SystemNavigation new allBehaviorsDo: [ :class |
- 			class selectorsDo: [:s |
- 				bar value: (i := i + 1).				
- 				((class sourceCodeAt: s) asString isOctetString) ifFalse: [
- 					adder value: class value: s.
- 				]
- 			]
- 		]
- 	].
- 
- 	^ list.
- !

Item was changed:
  ----- Method: WideString class>>allNonAsciiMethods (in category 'enumeration') -----
+ allNonAsciiMethods
- allNonAsciiMethods  
- 	"Answer a SortedCollection of all the methods that implement the message 
- 	aSelector."
  
+ 	^CurrentReadOnlySourceFiles cacheDuring: [
+ 		self systemNavigation allMethodsSelect: [ :method |
+ 			method getSource asString isAsciiString not ] ]!
- 	| 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...' displayProgressFrom: 0 to: num during: [:bar |
- 		SystemNavigation new allBehaviorsDo: [ :class |
- 			class selectorsDo: [:s |
- 				bar value: (i := i + 1).				
- 				((class sourceCodeAt: s) asString isAsciiString) ifFalse: [
- 					adder value: class value: s.
- 				]
- 			]
- 		]
- 	].
- 
- 	^ list.
- !