[Pkg] SystemEditor: TraitEditor-mtf.5.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of TraitEditor was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.5.mcz

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

Name: TraitEditor-mtf.5
Author: mtf
Time: 11 July 2008, 12:16:37 am
UUID: e288e4b8-5df4-4a64-808c-8870a94e0d4c
Ancestors: TraitEditor-mtf.4

implemented some instance creation methods

=============== Diff against TraitEditor-mtf.4 ===============

Item was added:
+ ----- Method: TraitCompositionDecorator>>buildFor: (in category 'as yet unclassified') -----
+ buildFor: aClassEditor
+ 	^ self!

Item was added:
+ ----- Method: TraitEditor class>>named:uses:category: (in category 'instance creation') -----
+ named: aSymbol uses: aTraitCompositionOrCollection category: aString
+ 	^self
+ 		named: aSymbol
+ 		uses: aTraitCompositionOrCollection
+ 		category: aString
+ 		env: SystemEditor new!

Item was changed:
+ AbstractEditor subclass: #TraitDescriptionEditor
- Object subclass: #TraitDescriptionEditor
  	instanceVariableNames: 'subject product system methods organization'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'TraitEditor'!
  
  !TraitDescriptionEditor commentStamp: 'mtf 6/20/2008 22:21' prior: 0!
  A base class for both TraitEditor and ClassTraitEditor!

Item was added:
+ ----- Method: TraitEditor class>>named:uses:category:env: (in category 'instance creation') -----
+ named: aSymbol uses: aTraitCompositionOrCollection category: aString env: anEnvironment
+ 	
+ 	| editor |
+ 	editor := anEnvironment at: aSymbol ifAbsent: [self on: nil for: anEnvironment].
+ 	editor traitComposition: aTraitCompositionOrCollection.
+ 	editor category: aString.
+ 	editor edRegisterEditor.
+ 	^ editor!

Item was changed:
  ----- Method: ClassEditor>>named:uses:category: (in category '*TraitEditor') -----
  named: aName uses: aTraitComposition category: aCategory
  	"This allows the following doit to be executed in the context of a SystemEditor: 
  	Trait named: uses: category: "
  	self name == #Trait ifFalse: [self shouldNotImplement].
+ 	^ TraitEditor named: aName uses: aTraitComposition category: aCategory env: self environment!
- 	^ TraitEditor named: aName uses: aTraitComposition category: aCategory!