Frank Shearar uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-fbs.88.mcz

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

Name: ToolBuilder-Morphic-fbs.88
Author: fbs
Time: 27 February 2013, 1:09:05.096 pm
UUID: 4d9369c3-4545-408c-8fdf-976048e72eb0
Ancestors: ToolBuilder-Morphic-cwp.87

Allow finding classes by specifying patterns - 'MC*Test' finds all Monticello test cases, for instance.

This commit favours implementation clarity over efficiency.

Part of http://bugs.squeak.org/view.php?id=7745.

=============== Diff against ToolBuilder-Morphic-cwp.87 ===============

Item was changed:
  ----- Method: ListChooser>>updateFilter (in category 'event handling') -----
  updateFilter
  	selectedItems := 
  		searchText isEmptyOrNil 
  			ifTrue: [ fullList ]
+ 			ifFalse: [ | pattern patternMatches prefixMatches |
+ 				pattern := (searchText beginsWith: '*')
+ 					ifTrue: [searchText]
+ 					ifFalse: ['*', searchText, '*'].
+ 				prefixMatches := fullList select: [:s | (s findString: searchText startingAt: 1 caseSensitive: false) = 1].
+ 				patternMatches := (fullList select: [:s | pattern match: s]) difference: prefixMatches.
+ 				prefixMatches addAllLast: patternMatches; yourself].
- 			ifFalse: [ 
- 				| prefixMatches otherMatches |
- 				prefixMatches := OrderedCollection new.
- 				otherMatches := OrderedCollection new.
- 				fullList do: [ :each | 
- 					| index |
- 					index := each findString: searchText startingAt: 1 caseSensitive: false.
- 					index = 1 ifTrue: [ prefixMatches add: each ].
- 					index > 1 ifTrue: [ otherMatches add: each ] ].
- 				prefixMatches
- 					addAllLast: otherMatches;
- 					yourself ].
  	self changed: #list.
  	self selectedIndex: 1.
  	self changed: #selectedIndex.!