[Pkg] The Trunk: Kernel-nice.481.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 22 18:37:03 UTC 2010

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:

==================== 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') -----
  	| 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!

More information about the Packages mailing list