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

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

Name: DeltaStreams-Model-mtf.7
Author: mtf
Time: 9 March 2009, 7:09:53 pm
UUID: f6fcdca5-c982-4ce2-b01c-528c1ddf1145
Ancestors: DeltaStreams-Model-mtf.6

fixed most of the DSApply tests

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

Item was added:
+ ----- Method: DSClassChange>>initialize (in category 'initialize-release') -----
+ initialize
+ 	self superclassName: #Object.
+ 	self instVarNames: Array new.
+ 	self classVarNames: Array new.
+ 	self poolDictionaryNames: Array new.
+ 	self category: #Unknown.
+ 	self type: #normal.
+ 	self comment: ''.
+ 	self stamp: nil.
+ 	self classInstVarNames: Array new.!

Item was added:
+ ----- Method: DSClassCommentChange class>>changing:from:to:oldStamp:newStamp: (in category 'as yet unclassified') -----
+ changing: aClass from: oldComment to: newComment oldStamp: oldStamp newStamp: newStamp
+ 	^(self fromClass: aClass)
+ 		oldComment: oldComment;
+ 		newComment: newComment;
+ 		oldStamp: oldStamp;
+ 		newStamp: newStamp;
+ 		yourself!

Item was added:
+ ----- Method: DSClassTypeChange class>>changing:from:to: (in category 'as yet unclassified') -----
+ changing: aClass from: old to: new
+ 	^ (self fromClass: aClass)
+ 		oldType: old;
+ 		newType: new;
+ 		yourself!

Item was changed:
  ----- Method: DSSystemEditorApplier>>applyClassVarsChanged: (in category 'class changes') -----
  applyClassVarsChanged: change
  	"Changed class vars, we ignore ordering as it is irrelevant - 
  	they are actually kept in a Dictionary."
  
  	| classEditor |
  	classEditor := self classEditorForChange: change.
+ 	classEditor classVarNames: change newVars.!
- 	change added do: [:each | classEditor addClassVarName: each].
- 	change removed do: [:each | classEditor removeClassVarName: each]!

Item was added:
+ ----- Method: DSVarsChange class>>changing:from:to: (in category 'as yet unclassified') -----
+ changing: aClass from: oldArray to: newArray
+ 
+ 	^(self fromClass: aClass)
+ 		oldVars: oldArray;
+ 		newVars: newArray;
+ 		yourself!

Item was added:
+ ----- Method: DSClassSuperclassChange class>>changing:from:to: (in category 'as yet unclassified') -----
+ changing: aClass from: oldSuperclass to: newSuperclass
+ 	^(self fromClass: aClass)
+ 		oldSuperclass: oldSuperclass;
+ 		newSuperclass: newSuperclass;
+ 		yourself!

Item was changed:
  ----- Method: DSClassChange class>>className: (in category 'instance creation') -----
  className: aClassName
+ 	^self new className: aClassName; yourself!
- 	^self new className: aClassName; initializeFromNone; yourself!

Item was added:
+ ----- Method: DSClassCategoryChange class>>changing:from:to: (in category 'as yet unclassified') -----
+ changing: aClass from: oldCategory to: newCategory
+ 	^(self fromClass: aClass)
+ 		oldCategory: oldCategory;
+ 		newCategory: newCategory;
+ 		yourself!

Item was removed:
- ----- Method: DSClassCategoryChange class>>class:from:to: (in category 'as yet unclassified') -----
- class: aClass from: oldCategory to: newCategory
- 	^(self class: aClass)
- 		oldCategory: oldCategory;
- 		newCategory: newCategory;
- 		yourself!

Item was removed:
- ----- Method: DSClassChange>>initializeFromNone (in category 'initialize-release') -----
- initializeFromNone
- 	"We use defaults."
- 
- 	self superclassName: #Object.
- 	self instVarNames: Array new.
- 	self classVarNames: Array new.
- 	self poolDictionaryNames: Array new.
- 	self category: #Unknown.
- 	self type: #normal.
- 	self comment: ''.
- 	self stamp: nil.
- 	self classInstVarNames: Array new.!

Item was removed:
- ----- Method: DSDelta>>editor (in category 'editing') -----
- editor
- 	^DSDeltaEditor on: self!