The Trunk: Tools-laza.199.mcz

Alexander Lazarević uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-laza.199.mcz

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

Name: Tools-laza.199
Author: laza
Time: 3 March 2010, 11:19:55.355 am
UUID: 42375dd4-166f-0747-afc4-c2e1644a916d
Ancestors: Tools-ar.198

Fixes ChangeSorter find

=============== Diff against Tools-ar.198 ===============

Item was changed:
  ----- Method: ChangeSorter>>findCngSet (in category 'changeSet menu') -----
  findCngSet
  "Search for a changeSet by name.  Pop up a menu of all changeSets whose name contains the string entered by the user.  If only one matches, then the pop-up menu is bypassed"
  | index pattern candidates nameList |
  self okToChange ifFalse: [^ self].
  pattern := UIManager default request: 'ChangeSet name or fragment?'.
  pattern isEmpty ifTrue: [^ self].
  nameList := self changeSetList asSet.
  candidates := ChangeSet allChangeSets select:
  [:c | (nameList includes: c name) and:
  [c name includesSubstring: pattern caseSensitive: false]].
  candidates size = 0 ifTrue: [^ Beeper beep].
  candidates size = 1 ifTrue:
  [^ self showChangeSet: candidates first].
+ index := UIManager default chooseFrom: (candidates collect: [:each | each name]).
- index := (UIManager default chooseFrom:
- (candidates collect: [:each | each name]) asStringWithCr).
  index = 0 ifFalse: [self showChangeSet: (candidates at: index)].
  !