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

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

Name: Traits-ar.269
Author: ar
Time: 30 December 2009, 8:04:48 am
UUID: 4e91fc53-21ff-cb43-afb3-3e8e8361b54c
Ancestors: Traits-ar.268

More recategorization.

=============== Diff against Traits-ar.266 ===============

Item was changed:
  TraitBehavior subclass: #TraitDescription
+ 	instanceVariableNames: 'users'
- 	instanceVariableNames: 'users traitComposition'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Traits-Kernel'!
  
  !TraitDescription commentStamp: 'ar 12/29/2009 18:15' prior: 0!
  TraitDescription combines common behavior for both (instance) traits and (meta) class traits.!

Item was changed:
+ ----- Method: Trait>>initialize (in category 'initialize') -----
- ----- Method: Trait>>initialize (in category 'initialize-release') -----
  initialize
  	super initialize.
  	classTrait := ClassTrait for: self.!

Item was added:
+ ----- Method: Trait class>>initialize (in category 'public') -----
+ initialize
+ 	"Do some reformatting of categories"
+ 	 {
+ 		TraitBehavior->#(#'no messages') . 
+ 		TraitDescription->#(#accessing #testing #operations #converting #copying #'fileIn/Out' #printing) . 
+ 		Trait->#(#initialize #accessing #testing #converting #compiling #'fileIn/Out' #monticello) . 
+ 		ClassTrait->#(#initialize #accessing #testing #compiling #monticello).
+ 		TraitBehavior class->#(#'no messages') . 
+ 		TraitDescription class->#(#'conflict methods') . 
+ 		Trait class->#(#'instance creation' #public) . 
+ 		ClassTrait class->#(#'instance creation').
+ 		TraitAlias->#(#'initialize-release' #accessing #testing #converting #operations).
+ 		TraitComposition->#(#accessing #testing #converting #operations).
+ 		TraitCompositionException->#(#'no messages').
+ 		TraitExclusion->#(#initialize #accessing #converting #composition).
+ 		TraitTransformation->#(#initialize #accessing #testing #converting #operations).
+ 	} do:[:assoc| | organizer categories |
+ 		organizer := assoc key organization.
+ 		categories := assoc value, 
+ 			(organizer categories reject:[:cat| assoc value includes: cat]).
+ 		organizer categories: categories.
+ 		organizer removeEmptyCategories.
+ 	].!

Item was removed:
- ----- Method: TraitComposition>>removeFromComposition: (in category 'compat') -----
- removeFromComposition: aTrait
- 	"--- ignore ---"!