The Inbox: Tools-ul.283.mcz

A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ul.283.mcz

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

Name: Tools-ul.283
Author: ul
Time: 8 December 2010, 9:22:57.213 pm
UUID: bee239a8-a732-0943-8145-899621dda613
Ancestors: Tools-ul.282

- Browser >> #findClass now uses the fancy ListChooser (in Morphic)

=============== Diff against Tools-ul.282 ===============

Item was changed:
  ----- Method: Browser>>findClass (in category 'system category functions') -----
  findClass
+ "Search for a class or a trait by name."
+
+ | names index foundClass |
+ (multiWindowState notNil or: [ self okToChange ]) ifFalse: [
+ ^self classNotFound ].
+ names := Smalltalk globals classAndTraitNames.
+ index := UIManager default
+ chooseFrom: names
+ lines: #()
+ title: 'Class name or fragment?'.
+ index = 0 ifTrue: [ ^self classNotFound ].
+ foundClass := Smalltalk globals
+ at: (names at: index)
+ ifAbsent: [ ^self classNotFound ].
+ (self selectedClass notNil and: [
+ multiWindowState notNil and: [
+ "Can only support multi-window if original window has all the right panes."
+ multiWindowState prototype isHierarchy not ] ]) ifTrue: [
+ (self classList includes: foundClass name)
+ ifTrue: [ multiWindowState copyWindow ]
+ ifFalse: [ multiWindowState addNewWindow ] ].
- "Search for a class by name."
- | pattern foundClass |
-
- (multiWindowState notNil
- or: [self okToChange]) ifFalse:
- [^self classNotFound].
- 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!