The Trunk: Tools-ul.287.mcz

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

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

Name: Tools-ul.287
Author: ul
Time: 12 December 2010, 11:32:10.018 pm
UUID: 68f13d34-18be-4340-aaa4-ddeae963a37e
Ancestors: Tools-mtf.286

- use UIManager for class selection in Browser >> #findClass

=============== Diff against Tools-mtf.286 ===============

Item was changed:
  ----- Method: Browser>>findClass (in category 'system category functions') -----
  findClass
  "Search for a class by name."
- | pattern foundClass |
 
+ | foundClass |
  (multiWindowState notNil
  or: [self okToChange]) ifFalse:
  [^self classNotFound].
+ foundClass := UIManager default chooseClassOrTrait.
- pattern := UIManager default request: 'Class name or fragment?'.
- pattern isEmpty ifTrue: [^self classNotFound].
- foundClass := Utilities classFromPattern: pattern withCaption: ''.
  foundClass ifNil: [^self classNotFound].
  (self selectedClass notNil
  and: [multiWindowState notNil
  "Can only support multi-window if original window has all the right panes."
  and: [multiWindowState prototype isHierarchy not]]) ifTrue:
  [(self classList includes: foundClass name)
  ifTrue: [multiWindowState copyWindow]
  ifFalse: [multiWindowState addNewWindow]].
    self selectCategoryForClass: foundClass.
  self selectClass: foundClass!