Andreas Raab uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-ar.270.mcz
==================== Summary ====================
Name: Traits-ar.270 Author: ar Time: 31 December 2009, 2:53:52 am UUID: adfa2f21-6cc3-3041-a5fa-efa4663bb3fe Ancestors: Traits-ar.269
Final cleanup touches: Remove some unused or duplicate left-overs.
=============== Diff against Traits-ar.269 ===============
Item was removed: - ----- Method: TraitDescription>>addUser: (in category 'accessing') ----- - addUser: aTrait - ^self addTraitUser: aTrait!
Item was removed: - ----- Method: TraitComposition>>addUser: (in category 'accessing') ----- - addUser: aUser - ^self addTraitUser: aUser!
Item was removed: - ----- Method: TraitDescription>>removeUser: (in category 'accessing') ----- - removeUser: aTrait - ^self removeTraitUser: aTrait!
Item was removed: - ----- Method: TraitComposition>>removeUser: (in category 'accessing') ----- - removeUser: aUser - ^self removeTraitUser: aUser!
Item was removed: - ----- Method: Array>>asTraitComposition (in category '*Traits-NanoKernel') ----- - asTraitComposition - "For convenience the composition {T1. T2 ...} is the same as T1 + T2 + ..." - ^self isEmpty - ifFalse: [ - self size = 1 - ifTrue: [self first asTraitComposition] - ifFalse: [ - self copyWithoutFirst - inject: self first - into: [:left :right | left + right]]] - ifTrue: [ClassDescription newTraitComposition]!
Item was removed: - ----- 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. - ].!