Frank Shearar uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-fbs.294.mcz

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

Name: Traits-fbs.294
Author: fbs
Time: 2 July 2013, 11:06:19.239 pm
UUID: 60a845d0-af1d-3548-92b7-e429166ba097
Ancestors: Traits-cwp.293

Kernel -/-> Traits.

=============== Diff against Traits-cwp.293 ===============

Item was added:
+ ----- Method: ClassDescription class>>allTraitsDo: (in category '*Traits') -----
+ allTraitsDo: aBlock
+ 	"Evaluate aBlock with all the instance and class traits present in the system"
+ 	TraitImpl ifNotNil:[TraitImpl allTraitsDo: aBlock].!

Item was added:
+ ----- Method: ClassDescription class>>newTraitComposition (in category '*Traits') -----
+ newTraitComposition
+ 	"Answer a new trait composition. If no current trait implementation
+ 	is installed, return an empty array"
+ 	^TraitImpl ifNil:[#()] ifNotNil:[TraitImpl newTraitComposition].!

Item was added:
+ ----- Method: ClassDescription class>>newTraitNamed:uses:category: (in category '*Traits') -----
+ newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString
+ 	"Creates a new trait. If no current trait implementation
+ 	is installed, raise an error."
+ 	^TraitImpl 
+ 		ifNil:[self error: 'Traits are not installed'] 
+ 		ifNotNil:[TraitImpl newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString]!

Item was added:
+ ----- Method: ClassDescription class>>newTraitTemplateIn: (in category '*Traits') -----
+ newTraitTemplateIn: categoryString
+ 	^TraitImpl ifNil:[''] ifNotNil:[TraitImpl newTemplateIn: categoryString].!

Item was added:
+ ----- Method: ClassDescription class>>traitImpl (in category '*Traits') -----
+ traitImpl
+ 	"Answer the default implementor of traits"
+ 	^TraitImpl!

Item was added:
+ ----- Method: ClassDescription class>>traitImpl: (in category '*Traits') -----
+ traitImpl: aTraitClass
+ 	"Make the given trait class the default implementor of traits"
+ 	TraitImpl := aTraitClass.!