Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.580.mcz==================== Summary ====================
Name: Tools-mt.580
Author: mt
Time: 12 April 2015, 3:26:07.168 pm
UUID: 5dbc59ee-fa25-794e-a41b-9f4ee5c79a63
Ancestors: Tools-topa.579
For the sake of consistency, added '-- all --' category to the list of system categories.
Skipped creation of class hierarchy in that case. Too slow....
=============== Diff against Tools-topa.579 ===============
Item was changed:
----- Method: Browser>>defaultClassList (in category 'class list') -----
defaultClassList
"Answer an array of the class names of the selected category. Answer an
empty array if no selection exists."
^ self hasSystemCategorySelected
+ ifFalse: [Array new]
+ ifTrue: [self selectedSystemCategory = SystemOrganizer allCategory
+ ifTrue: [systemOrganizer allElements sort]
+ ifFalse: [systemOrganizer listAtCategoryNamed: self selectedSystemCategory]]
+ !
- ifTrue: [systemOrganizer listAtCategoryNamed: self selectedSystemCategory]
- ifFalse: [Array new].!
Item was changed:
----- Method: Browser>>hierarchicalClassList (in category 'class list') -----
hierarchicalClassList
"classNames are an arbitrary collection of classNames of the system.
Reorder those class names so that they are sorted and indended by inheritance"
| classes |
+ "Creating the hierarchy is *really slow* for the full class list. Skip it for now."
+ self selectedSystemCategory = SystemOrganizer allCategory
+ ifTrue: [^ self defaultClassList].
+
classes := self defaultClassList collect: [:sym | Smalltalk classNamed: sym].
^ self
flattenHierarchyTree: (self createHierarchyTreeOf: classes)
on: OrderedCollection new
indent: ''.!
Item was changed:
----- Method: Browser>>systemCategoryList (in category 'system category list') -----
systemCategoryList
"Answer the class categories modelled by the receiver."
+ ^ {SystemOrganizer allCategory}, systemOrganizer categories!
- ^systemOrganizer categories!
Locked
