Robert Krahn uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-rkrk.115.mcz==================== Summary ====================
Name: Tools-rkrk.115
Author: rkrk
Time: 24 August 2009, 6:31:38 am
UUID: 7061a76c-b0f1-446f-8e3c-45d78de89e7a
Ancestors: Tools-rkrk.114
Bugfix for hierarchical browser class lists introduced in Tools-rkrk.111 when browsing Traits.
=============== Diff against Tools-rkrk.114 ===============
Item was changed:
----- Method: Browser>>createHierarchyTreeOf: (in category 'class list') -----
createHierarchyTreeOf: col
"Create a tree from a flat collection of classes"
| childs transformed val indexes |
transformed := col collect: [:ea |
+ childs := col select: [:class | class isTrait not and: [class superclass = ea]].
- childs := col select: [:class | class superclass = ea].
indexes := childs collect: [:child | col indexOf: child].
ea -> indexes].
transformed copy do: [:ea |
ea value: (ea value collect: [:idx |
val := transformed at: idx.
transformed at: idx put: nil.
val])].
^ transformed select: [:ea | ea notNil].
!