[Pkg] The Trunk: Kernel-ar.359.mcz

[commits at source.squeak.org]

Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.359.mcz

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

Name: Kernel-ar.359
Author: ar
Time: 31 December 2009, 2:47:51 am
UUID: 7337f125-8970-c049-abdd-31f1fcad7eca
Ancestors: Kernel-ar.358

Final cleanup touches: Avoid unused protocol, remove reclassification.

=============== Diff against Kernel-ar.358 ===============

Item was changed:
  ----- Method: ClassDescription>>obsolete (in category 'initialize-release') -----
  obsolete
  	"Make the receiver obsolete."
  	self hasTraitComposition ifTrue: [
  		self traitComposition traits do: [:each |
+ 			each removeTraitUser: self]].
- 			each removeUser: self]].
  	superclass removeSubclass: self.
  	self organization: nil.
  	super obsolete.!

Item was removed:
- ----- Method: ClassDescription class>>initialize (in category 'class initialization') -----
- initialize
- 	"Do some reformatting of categories"
- 	{
- 		Behavior	->	#(#'initialize-release' #accessing #'accessing class hierarchy' #'accessing instances and variables' #'accessing method dictionary' #testing #'testing class hierarchy' #'testing method dictionary' #comparing #'adding/removing methods' #compiling #enumerating #copying #'instance creation' #'obsolete subclasses' #printing #queries #'system startup' #'user interface' #private
- 		). 
- 		ClassDescription->#(#'initialize-release' #accessing #'accessing class hierarchy' #'accessing comment' #'accessing method dictionary' #'accessing parallel hierarchy' #compiling #copying #'fileIn/Out' #'instance variables' #organization #printing #private
- 		). 
- 		Class->#(#'initialize-release' #accessing #'accessing class hierarchy' #testing #'class name' #'class variables' #compiling #copying #'fileIn/Out' #'instance variables' #organization #'pool variables' #'subclass creation' #private
- 		). 
- 		Metaclass->#(#'initialize-release' #accessing #'accessing parallel hierarchy' #testing #'class hierarchy' #compiling #copying #enumerating #'fileIn/Out' #'instance creation' #'instance variables' #'pool variables' #private
- 		).
- 		Behavior class->#(#'class initialization' #testing) . 
- 		ClassDescription class->#(#'class initialization' #traits) . 
- 		Class class->#(#'fileIn/Out' #'instance creation' #inquiries) . 
- 		Metaclass class->#(#'anti-corruption')
- 	} do:[:assoc| | organizer categories |
- 		organizer := assoc key organization.
- 		categories := assoc value, 
- 			(organizer categories reject:[:cat| assoc value includes: cat]).
- 		organizer categories: categories.
- 		organizer removeEmptyCategories.
- 	].!