[Pkg] DeltaStreams: DeltaStreams-Model-mtf.4.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.4.mcz

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

Name: DeltaStreams-Model-mtf.4
Author: mtf
Time: 9 March 2009, 2:03:44 pm
UUID: d97707e7-9ada-4a66-9aa9-48189421109d
Ancestors: DeltaStreams-Model-mtf.3

moved some old query methods to the tests package, where their only user is

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

Item was removed:
- ----- Method: DSDelta>>methodGroupFor: (in category 'queries') -----
- methodGroupFor: protoChange
- 	"Answers all the changes to the same method in the same class, or to the same class if the change is not a method change"
- 
- 	protoChange isClassChange ifFalse: [^ Array new].
- 	^ (self withClassName: protoChange className reverseSelect: [:change :className |
- 		change inMethodGroupFor: protoChange withClassName: className]) reverse!

Item was removed:
- ----- Method: DSDelta>>classCommentChanges (in category 'queries') -----
- classCommentChanges
- 	^changes select: [:change | change isClassComment]!

Item was removed:
- ----- Method: DSDelta>>classGroupNamed: (in category 'queries') -----
- classGroupNamed: aClassName
- 	"Answers all the changes to the class with this name"
- 
- 	^ self classGroupFor: (DSBasicClassChange className: aClassName)!

Item was removed:
- ----- Method: DSDelta>>classRemovedChanges (in category 'queries') -----
- classRemovedChanges
- 	^changes select: [:change | change isClassRemoved]!

Item was removed:
- ----- Method: DSDelta>>classInstVarsChanges (in category 'queries') -----
- classInstVarsChanges
- 	^changes select: [:change | change isClassInstVars]!

Item was removed:
- ----- Method: DSDelta>>classGroupFor: (in category 'queries') -----
- classGroupFor: protoChange
- 	"Answers all the changes to the same class as protoChange. Returns the list in reverse order from the delta"
- 
- 	protoChange isClassChange ifFalse: [^ Array new].
- 	^ (self withClassName: protoChange className reverseSelect: [:change :className |
- 		change inClassGroupFor: protoChange withClassName: className])!

Item was removed:
- ----- Method: DSDelta>>classSuperclassChanges (in category 'queries') -----
- classSuperclassChanges
- 	^changes select: [:change | change isClassSuperclass]!

Item was removed:
- ----- Method: DSDelta>>hasDoIts (in category 'testing') -----
- hasDoIts
- 
- 	^self doIts notEmpty!

Item was removed:
- ----- Method: DSDelta>>doIts (in category 'queries') -----
- doIts
- 
- 	^changes select: [:change | change isDoIt]!

Item was removed:
- ----- Method: DSDelta>>methodGroups (in category 'queries') -----
- methodGroups
- 	^ DSChangeCategorizer forClassesAndMethods withAll: self!

Item was removed:
- ----- Method: DSDelta>>classNameChanges (in category 'queries') -----
- classNameChanges
- 	^changes select: [:change | change isClassName]!