The Trunk: Traits-ar.270.mcz

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