[Pkg] The Trunk: Tools-mt.580.mcz

[commits at source.squeak.org]

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!