The Trunk: Kernel-nice.481.mcz

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.481.mcz

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

Name: Kernel-nice.481
Author: nice
Time: 22 August 2010, 8:36:19.342 pm
UUID: 70b04d4e-153d-4c0f-bb0d-92b3dce1cd88
Ancestors: Kernel-nice.479

minor change: avoid creating a SortedCollection when not necessary...
asSortedCollection asArray -> asArray sort

=============== Diff against Kernel-nice.479 ===============

Item was changed:
  ----- Method: ClassDescription>>allMethodCategoriesIntegratedThrough: (in category 'accessing method dictionary') -----
  allMethodCategoriesIntegratedThrough: mostGenericClass
  "Answer a list of all the method categories of the receiver and all its superclasses, up through mostGenericClass"
 
  | aColl |
  aColl := OrderedCollection new.
  self withAllSuperclasses do:
  [:aClass |
  (aClass includesBehavior: mostGenericClass)
  ifTrue: [aColl addAll: aClass organization categories]].
  aColl remove: 'no messages' asSymbol ifAbsent: [].
 
+ ^aColl asSet asArray sort: [:a :b | a asLowercase < b asLowercase]
- ^ (aColl asSet asSortedCollection: [:a :b | a asLowercase < b asLowercase]) asArray
 
  "ColorTileMorph allMethodCategoriesIntegratedThrough: TileMorph"!

Item was changed:
  ----- Method: Categorizer>>sortCategories (in category 'accessing') -----
  sortCategories
  | privateCategories publicCategories newCategories |
 
  privateCategories := self categories select:
  [:one | (one findString: 'private' startingAt: 1 caseSensitive: false) = 1].
  publicCategories := self categories copyWithoutAll: privateCategories.
+ newCategories := publicCategories asArray sort , privateCategories asArray sort.
- newCategories := publicCategories asSortedCollection asOrderedCollection
- addAll: privateCategories asSortedCollection;
- asArray.
  self categories: newCategories!