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. - !
packages@lists.squeakfoundation.org