[Pkg] SystemEditor: TraitEditor-mtf.11.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.11.mcz

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

Name: TraitEditor-mtf.11
Author: mtf
Time: 16 October 2008, 12:00 am
UUID: 48a39c3e-a61e-4ac4-ab6a-e64bc6ed9916
Ancestors: TraitEditor-mtf.10

fixed up decorators so that TraitCompositionEditorss are getting called

=============== Diff against TraitEditor-mtf.10 ===============

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

Item was changed:
  ----- Method: TraitCompositionDecorator>>traitCompositionDo: (in category 'accessing') -----
  traitCompositionDo: aBlock
+ "If the editor's trait composition has changed, evaluate aBlock with the new traitCompositionEditor"
+ 	^ editor propertyAt: #traitComposition ifPresentDo: aBlock!
- 	editor traitComposition ifNotNilDo: aBlock!

Item was changed:
  ----- Method: TraitCompositionDecorator>>edBuild (in category 'building') -----
  edBuild
+ 	^ self traitCompositionDo: [:comp | comp edBuild]!
- 	^ self traitCompositionDo: [:comp | comp build]!

Item was changed:
+ ----- Method: TraitCompositionDecorator>>edPrepareMigration: (in category 'building') -----
+ edPrepareMigration: txn
+ 	^ self traitCompositionDo: [:comp | comp edPrepareMigration: txn]!
- ----- Method: TraitCompositionDecorator>>edPrepareMigration: (in category 'as yet unclassified') -----
- edPrepareMigration: aMigrationTransaction 
- 	^ self!

Item was changed:
  ----- Method: PureBehaviorEditor>>traitComposition (in category '*TraitEditor') -----
  traitComposition
  "Answers an editor on my traitComposition, creating it if necessary"
  
  	^  self propertyAt: #traitComposition 
+ 		ifAbsentPut: [self decorateWith: TraitCompositionDecorator.
+ 			TraitCompositionEditor
+ 				on: (self subject ifNotNil: [self subject traitComposition])
+ 				for: self]!
- 		ifAbsentPut: [TraitCompositionEditor
- 			on: (self subject ifNotNil: [self subject traitComposition])
- 			for: self]!

Item was changed:
  ----- Method: TraitEditor>>setSubject:system: (in category 'initialization') -----
  setSubject: aClass system: aSystemEditor 
  	subject := aClass.
  	system := aSystemEditor. 
  	subject ifNil: 
  			[name := #Annonymous.
+ 			methods := MethodDictionaryEditor for: self]!
- 			methods := MethodDictionaryEditor for: self].
- 		decorators := ClassDecorator decoratorsFor: self.!

Item was changed:
+ ----- Method: TraitCompositionDecorator>>edRequiresRecompile (in category 'building') -----
- ----- Method: TraitCompositionDecorator>>edRequiresRecompile (in category 'as yet unclassified') -----
  edRequiresRecompile
  	^ false!

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