[Pkg] DeltaStreams: DeltaStreams-Model-mtf.3.mcz

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

A new version of DeltaStreams-Model was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-mtf.3.mcz

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

Name: DeltaStreams-Model-mtf.3
Author: mtf
Time: 9 March 2009, 1:59:36 pm
UUID: 8ff6850a-aacf-409f-8447-ca7df55f9382
Ancestors: DeltaStreams-Model-mtf.2

fixed some issues with DSRevertTest

=============== Diff against DeltaStreams-Model-mtf.2 ===============

Item was changed:
  ----- Method: DSVisitor>>applyDelta: (in category 'composite changes') -----
  applyDelta: aDelta
  	"Treat like a composite change by default."
  	
+ 	^ self applyCompositeChange: aDelta compositeChange!
- 	^ self applyCompositeChange: aDelta!

Item was added:
+ ----- Method: DSDelta>>asAntiChange (in category 'applying') -----
+ asAntiChange
+ 	"Return a new Delta that, when applied, reverts each change of this Delta
+ 	in reverse order. Each change should have enough information to create
+ 	an anti change from itself."
+ 
+ 	| anti |
+ 	self isRevertable ifFalse: [DSDeltaNotRevertableException signal].
+ 	anti := DSDelta name: 'undo ' translated, self name.
+ 	properties ifNotNil: [properties associationsDo: [:assoc | anti propertyAt: assoc key put: assoc value]]. 
+ 	self changes reverseDo: [:each | anti addChange: each asAntiChange]. 
+ 	^anti!

Item was removed:
- ----- Method: DSDelta>>asAntiDelta (in category 'applying') -----
- asAntiDelta
- 	"Return a new Delta that, when applied, reverts each change of this Delta
- 	in reverse order. Each change should have enough information to create
- 	an anti change from itself."
- 
- 	| anti |
- 	self isRevertable ifFalse: [DSDeltaNotRevertableException signal].
- 	anti := DSDelta name: 'undo ' translated, self name.
- 	properties ifNotNil: [properties associationsDo: [:assoc | anti propertyAt: assoc key put: assoc value]]. 
- 	self changes reverseDo: [:each | anti addChange: each asAntiChange]. 
- 	^anti!