Andreas Raab uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-ar.266.mcz==================== Summary ====================
Name: Traits-ar.266
Author: ar
Time: 30 December 2009, 3:31:24 am
UUID: c7cb8d8d-6e4b-9e48-92e4-7f5276214983
Ancestors: Traits-ar.265
Also remove Trait class>>initialize.
=============== Diff against Traits-ar.264 ===============
Item was changed:
----- Method: ClassDescription>>traitComposition: (in category '*Traits-NanoKernel') -----
traitComposition: aTraitComposition
"Install my trait composition"
+ aTraitComposition isEmptyOrNil ifTrue:[
- aTraitComposition isEmpty ifTrue:[
self organization isTraitOrganizer
ifTrue:[self organization: (ClassOrganizer newFrom: self organization)].
] ifFalse:[
self organization isTraitOrganizer
ifFalse:[self organization: (TraitOrganizer newFrom: self organization)].
self organization traitComposition: aTraitComposition.
].
!
Item was removed:
- ----- Method: TraitDescription>>traitComposition (in category 'accessing') -----
- traitComposition
- ^traitComposition ifNil:[traitComposition := TraitComposition new]
- !
Item was removed:
- ----- Method: TraitDescription>>traitComposition: (in category 'accessing') -----
- traitComposition: aTraitComposition
- super traitComposition: aTraitComposition.
- traitComposition := aTraitComposition.
- !
Item was removed:
- ----- Method: Trait class>>initialize (in category 'class initialization') -----
- initialize
- "Push traitsComposition down into organizer"
- Smalltalk allClassesAndTraits do:[:aClass|
- aClass traitComposition: aClass traitComposition.
- aClass classSide traitComposition: aClass classSide traitComposition.
- ].!