The Trunk: Traits-fbs.294.mcz

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