[Pkg] DeltaStreams: DeltaStreams-Deprecated-gk.5.mcz

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

A new version of DeltaStreams-Deprecated was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Deprecated-gk.5.mcz

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

Name: DeltaStreams-Deprecated-gk.5
Author: gk
Time: 6 September 2009, 2:24:59 am
UUID: 9c2acae3-e981-4d04-bac5-3c52d3d778cb
Ancestors: DeltaStreams-Deprecated-gk.4

Moved visitor wrapper in here.

=============== Diff against DeltaStreams-Deprecated-gk.4 ===============

Item was added:
+ DSVisitor subclass: #DSVisitorWrapper
+ 	instanceVariableNames: 'visitor'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'DeltaStreams-Deprecated'!
+ 
+ !DSVisitorWrapper commentStamp: 'mtf 9/29/2007 14:15' prior: 0!
+ My instances intercept change requests and act on them and optionally forward them to the wrapped visitor. we can be chained and composed together!

Item was changed:
  ----- Method: DSDeltaNormalizeTest>>testCreateAndRemove (in category 'as yet unclassified') -----
  testCreateAndRemove
  
  	self createClassB; removeTestClasses; createClassB.
+ 	delta stopLogging; compress.
- 	delta stopLogging; normalize.
  	self assert: delta changes size = 2.
  	self assert: delta changes first isClassDeleted.
  	self assert: delta changes second isClassCreated.!

Item was added:
+ ----- Method: DSVisitorWrapper class>>on: (in category 'as yet unclassified') -----
+ on: aVisitor
+ 	^ self new visitor: aVisitor!

Item was added:
+ ----- Method: DSVisitorWrapper>>chain: (in category 'initialize-release') -----
+ chain: aVisitor
+ 	chain := aVisitor.
+ 	visitor chain: aVisitor!

Item was added:
+ ----- Method: DSVisitorWrapper>>visitor: (in category 'initialize-release') -----
+ visitor: aVisitor
+ 	visitor := aVisitor.
+ 	aVisitor chain: self!

Item was added:
+ ----- Method: DSVisitorWrapper>>applyChange: (in category 'basic') -----
+ applyChange: change
+ 	^ change applyUsing: visitor!