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!