The Trunk: Traits-jr.309.mcz

David T. Lewis uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-jr.309.mcz

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

Name: Traits-jr.309
Author: jr
Time: 1 March 2017, 5:00:38.523078 pm
UUID: 32a4e214-747f-cc42-8b8d-a95182963d05
Ancestors: Traits-jr.308

environments for Traits

Monticello-jr.663 needs this to create traits

=============== Diff against Traits-pre.307 ===============

Item was added:
+ ----- Method: ClassDescription class>>newTraitNamed:uses:category:in: (in category '*Traits') -----
+ newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString in: anEnvironment
+ "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 in: anEnvironment]!

Item was added:
+ ----- Method: ClassTrait>>environment (in category 'accessing') -----
+ environment
+ ^ baseTrait environment!

Item was added:
+ ----- Method: Trait class>>newTraitNamed:uses:category:in: (in category 'public') -----
+ newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString in: anEnvironment
+ "Creates a new trait."
+ ^self
+ named: aSymbol
+ uses: aTraitCompositionOrCollection
+ category: aString
+ env: anEnvironment!

Item was changed:
  ----- Method: TraitDescription>>printUsersOf:on:level: (in category 'printing') -----
  printUsersOf: aClass on: aStream level: indent
  aStream crtab: indent.
  aStream nextPutAll: aClass name.
  aClass isTrait ifTrue:[
+ aClass users do:[:each| self printUsersOf: each on: aStream level: indent+1].
- aClass users do:[:each| self printUsersOf: aClass on: aStream level: indent+1].
  ].
  !