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

[squeak-dev-noreply at lists.squeakfoundation.org]

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

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

Name: TraitEditor-mtf.7
Author: mtf
Time: 13 October 2008, 12:00 am
UUID: 020bea91-e709-4915-88c4-4ee93284234d
Ancestors: TraitEditor-mtf.6

Started filling out TraitEditor, and created PureBehaviorEditor

=============== Diff against TraitEditor-mtf.6 ===============

Item was added:
+ ----- Method: TraitEditor>>name (in category 'accessing') -----
+ name
+ 	^ name!

Item was changed:
  TraitDescriptionEditor subclass: #TraitEditor
+ 	instanceVariableNames: 'name classTrait category'
- 	instanceVariableNames: 'classTrait category'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'TraitEditor'!

Item was added:
+ ----- Method: PureBehaviorEditor>>hasTraitComposition (in category '*TraitEditor') -----
+ hasTraitComposition
+ 	^  self traitComposition notNil!

Item was added:
+ ----- Method: PureBehaviorEditor>>traitComposition: (in category '*TraitEditor') -----
+ traitComposition: aTraitCompositionOrCollection
+ 	self propertyAt: #traitComposition put: aTraitCompositionOrCollection!

Item was changed:
  ----- Method: ClassEditor>>subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category '*TraitEditor') -----
  subclass: aSymbol uses: traitComposition instanceVariableNames: instString classVariableNames: classString poolDictionaries: poolString category: categoryString 
  	^ self subclass: aSymbol
  		instanceVariableNames: instString
  		classVariableNames: classString
  		poolDictionaries: poolString
  		category: categoryString;
  		traitComposition: traitComposition;
  		yourself
  	!

Item was added:
+ ----- Method: PureBehaviorEditor>>traitComposition (in category '*TraitEditor') -----
+ traitComposition
+ 	^  self propertyAt: #traitComposition ifAbsent: [nil]!

Item was changed:
+ PureBehaviorEditor subclass: #TraitDescriptionEditor
+ 	instanceVariableNames: ''
- AbstractEditor 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>>setSubject:system: (in category 'initialization') -----
+ setSubject: aClass system: aSystemEditor 
+ 	subject := aClass.
+ 	system := aSystemEditor. 
+ 	subject ifNil: 
+ 			[name := #Annonymous.
+ 			methods := MethodDictionaryEditor for: self].
+ 		decorators := ClassDecorator decoratorsFor: self.!

Item was added:
+ ----- Method: TraitEditor>>setName: (in category 'initialization') -----
+ setName: aSymbol
+ 	name := aSymbol!

Item was added:
+ ----- Method: TraitEditor>>on:for: (in category 'initialization') -----
+ on: aClass for: aSystemEditor
+ 	^ self setSubject: aClass system: aSystemEditor!

Item was added:
+ ----- Method: TraitEditor>>category: (in category 'reflecting') -----
+ category: aSymbol
+ 	category := aSymbol!

Item was removed:
- ----- Method: ClassEditor>>hasTraitComposition (in category '*TraitEditor') -----
- hasTraitComposition
- 	^  self traitComposition notNil!

Item was removed:
- ----- Method: ClassEditor>>traitComposition (in category '*TraitEditor') -----
- traitComposition
- 	^  self propertyAt: #traitComposition ifAbsent: [nil]!