The Trunk: Kernel-ar.359.mcz

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.
- ].!