Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.248.mcz==================== Summary ====================
Name: Tools-eem.248
Author: eem
Time: 29 June 2010, 5:35:42.881 pm
UUID: 0b9c21cf-7f57-4db1-82c1-a8edbfb07600
Ancestors: Tools-jcg.247
Make MessageNames accept semicolon-separated patterns,
so "at:put*;*remove*" answers all selectors beginning with
"at:put" and all including remove. Needs Collections-eem.367.
=============== Diff against Tools-jcg.247 ===============
Item was changed:
----- Method: MessageNames>>computeSelectorListFromSearchString (in category 'search') -----
computeSelectorListFromSearchString
"Compute selector list from search string"
+ searchString := searchString asString copyWithout: $ . "?dubious?"
+ selectorList := Cursor wait showWhile:
+ [| sorted |
+ sorted := SortedCollection sortBlock: [:x :y | x asLowercase <= y asLowercase].
+ (searchString findBetweenSubStrs: ';') do:
+ [:selPat| | raw n m |
+ selPat size > 0 ifTrue:
+ [(selPat first = $" and: [selPat last = $" and: [selPat size > 2]])
+ ifTrue:
+ [Symbol hasInterned: (selPat copyFrom: 2 to: selPat size - 1) ifTrue: [:sym| sorted add: sym]]
+ ifFalse:
+ [raw := (((n := selPat occurrencesOf: $*) > 0)
+ | ((m := selPat occurrencesOf: $#) > 0)
+ and: [selPat size > (n + m)])
+ ifTrue: [Symbol selectorsMatching: selPat]
+ ifFalse: [Symbol selectorsContaining: selPat].
+ sorted addAll: raw]]].
- searchString := searchString asString copyWithout: $ .
- selectorList := Cursor wait
- showWhile: [
- | raw sorted |
- raw := Symbol selectorsContaining: searchString.
- sorted := raw as: SortedCollection.
- sorted
- sortBlock: [:x :y | x asLowercase <= y asLowercase].
sorted asArray].
+ ^selectorList!
- selectorList size > 19
- ifFalse: ["else the following filtering is considered too expensive. This 19
- should be a system-maintained Parameter, someday"
- selectorList := self systemNavigation allSelectorsWithAnyImplementorsIn: selectorList].
- ^ selectorList!
Locked
