[Pkg] The Trunk: Traits-jr.309.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 5 16:07:34 UTC 2017


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



More information about the Packages mailing list