[squeak-dev] The Inbox: Tools-rkrk.115.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[squeak-dev] The Inbox: Tools-rkrk.115.mcz

commits-2
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].
  !