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