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

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

Name: DeltaStreams-Model-mtf.8
Author: mtf
Time: 9 March 2009, 9:44:25 pm
UUID: 2c7cc024-1215-46d7-8d6b-dbbbaa77b0c8
Ancestors: DeltaStreams-Model-mtf.7

all but two apply tests pass

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

Item was added:
+ ----- Method: DSClassChange>>newType (in category 'accessing') -----
+ newType
+ 	^type!

Item was added:
+ ----- Method: DSClassChange>>newComment (in category 'accessing') -----
+ newComment
+ 	^ comment!

Item was added:
+ ----- Method: DSClassChange>>newStamp (in category 'accessing') -----
+ newStamp
+ 	^ stamp!

Item was added:
+ ----- Method: DSClassChange>>newSuperclassName (in category 'accessing') -----
+ newSuperclassName
+ 	^superclassName!

Item was added:
+ ----- Method: DSClassChange>>oldInstVarNames (in category 'accessing') -----
+ oldInstVarNames
+ 	^instVarNames!

Item was added:
+ ----- Method: DSInstVarsChange>>oldInstVarNames (in category 'accessing') -----
+ oldInstVarNames
+ 	^ self oldVars!

Item was added:
+ ----- Method: DSClassChange>>oldClassVarNames (in category 'accessing') -----
+ oldClassVarNames
+ 	^classVarNames!

Item was added:
+ ----- Method: DSClassInstVarsChange>>oldClassInstVarNames (in category 'accessing') -----
+ oldClassInstVarNames
+ 	^ self oldVars!

Item was added:
+ ----- Method: DSClassChange>>newInstVarNames (in category 'accessing') -----
+ newInstVarNames
+ 	^instVarNames!

Item was changed:
  ----- Method: DSSystemEditorApplier>>applyClassChange: (in category 'class changes') -----
  applyClassChange: change
  	"Apply a generic class change"
  
  	| classEditor superclassEditor |
  	self ensureSharedPools: change poolDictionaryNames.
+ 	superclassEditor := editor ensureClassNamed: change superclassName.
- 	superclassEditor := editor at: change superclassName ifAbsent: [editor at: #Object].
  	classEditor := superclassEditor subclass: change className
  			instanceVariableNames: change instVarNames asSpaceString
  			classVariableNames: change classVarNames asSpaceString
  			poolDictionaries: change poolDictionaryNames asSpaceString
  			category: change category.
+ 
+ 	classEditor typeOfClass: change type.
+ 	classEditor class instanceVariableNames: change classInstVarNames asSpaceString.
+ 	classEditor classComment: change comment stamp: change stamp.
+ !
- 	classEditor typeOfClass: change type!

Item was added:
+ ----- Method: DSClassVarsChange>>oldClassVarNames (in category 'accessing') -----
+ oldClassVarNames
+ 	^ self oldVars!

Item was added:
+ ----- Method: DSClassChange>>oldType (in category 'accessing') -----
+ oldType
+ 	^type!

Item was added:
+ ----- Method: DSClassChange>>newSuperclass (in category 'accessing') -----
+ newSuperclass
+ 	^Smalltalk classNamed: self newSuperclassName!

Item was added:
+ ----- Method: DSClassChange>>newName (in category 'accessing') -----
+ newName
+ 	^ className!

Item was added:
+ ----- Method: DSClassChange>>oldName (in category 'accessing') -----
+ oldName
+ 	^ className!

Item was added:
+ ----- Method: DSClassChange>>oldCategory (in category 'accessing') -----
+ oldCategory
+ 	^category!

Item was changed:
  ----- Method: DSSystemEditorApplier>>applyClassNameChanged: (in category 'class changes') -----
  applyClassNameChanged: change
  	"Changed a class name. If the old class does not exist, do nothing. If the new name already exists, the behavior is not implemented"
  
  	(editor includesKey: change oldName) ifFalse: [^ self].
  	(editor includesKey: change newName) ifTrue: [^ self error: 'Class rename conflict. See the comment in DSDeltaDirtyApplyTest>>testClassRenameConfict'].
+ 	(editor at: change oldName) rename: change newName.
+ 	super applyClassNameChanged: change.!
- 	(self classEditorForChange: change) rename: change newName.!

Item was added:
+ ----- Method: DSClassChange>>oldComment (in category 'accessing') -----
+ oldComment
+ 	^ comment!

Item was added:
+ ----- Method: DSInstVarsChange>>fromChange: (in category 'initialize-release') -----
+ fromChange: aChange
+ 
+ 	super fromChange: aChange.
+ 	self oldVars: aChange oldInstVarNames.!

Item was changed:
  ----- 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: Categorizer default.
- 	self category: #Unknown.
  	self type: #normal.
  	self comment: ''.
  	self stamp: nil.
  	self classInstVarNames: Array new.!

Item was added:
+ ----- Method: DSClassChange>>newPoolDictionaryNames (in category 'accessing') -----
+ newPoolDictionaryNames
+ 	^poolDictionaryNames!

Item was added:
+ ----- Method: DSClassChange>>oldSuperclass (in category 'accessing') -----
+ oldSuperclass
+ 	^Smalltalk classNamed: self oldSuperclassName!

Item was added:
+ ----- Method: DSClassVarsChange>>fromChange: (in category 'initialize-release') -----
+ fromChange: aChange
+ 
+ 	super fromChange: aChange.
+ 	self oldVars: aChange oldClassVarNames.!

Item was added:
+ ----- Method: DSClassChange>>oldPoolDictionaryNames (in category 'accessing') -----
+ oldPoolDictionaryNames
+ 	^poolDictionaryNames!

Item was added:
+ ----- Method: DSClassChange>>newCategory (in category 'accessing') -----
+ newCategory
+ 	^category!

Item was added:
+ ----- Method: DSClassChange>>newClassVarNames (in category 'accessing') -----
+ newClassVarNames
+ 	^classVarNames!

Item was added:
+ ----- Method: DSClassChange>>oldSuperclassName (in category 'accessing') -----
+ oldSuperclassName
+ 	^superclassName!

Item was added:
+ ----- Method: DSClassChange>>oldClassInstVarNames (in category 'accessing') -----
+ oldClassInstVarNames
+ 	^ classInstVarNames!

Item was added:
+ ----- Method: DSSharedPoolVarsChange>>oldPoolDictionaryNames (in category 'accessing') -----
+ oldPoolDictionaryNames
+ 	^ self oldVars!

Item was added:
+ ----- Method: DSClassChange>>newClassInstVarNames (in category 'accessing') -----
+ newClassInstVarNames
+ 	^ classInstVarNames!

Item was added:
+ ----- Method: DSClassChange>>oldStamp (in category 'accessing') -----
+ oldStamp
+ 	^ stamp!

Item was changed:
  ----- Method: DSClassSuperclassChange>>action (in category 'printing') -----
  action
+ 	^'superclass changed to ', self newSuperclassName!
- 	^'superclass changed to ', newSuperclassName!

Item was added:
+ ----- Method: DSSharedPoolVarsChange>>fromChange: (in category 'initialize-release') -----
+ fromChange: aChange
+ 
+ 	super fromChange: aChange.
+ 	self oldVars: aChange oldPoolDictionaryNames.!

Item was added:
+ ----- Method: DSClassInstVarsChange>>fromChange: (in category 'initialize-release') -----
+ fromChange: aChange
+ 
+ 	super fromChange: aChange.
+ 	self oldVars: aChange oldClassInstVarNames.!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applySharedPoolVarsChanged: (in category 'class changes') -----
- applySharedPoolVarsChanged: change
- 	"Changed shared pool vars. Currently we just raise error if missing!!"
- 
- 	| classEditor |
- 	self ensureSharedPools: change added.
- 	classEditor := self classEditorForChange: change.
- 	change added do: [:each |
- 		classEditor addSharedPool: (classEditor system edResolve: each asSymbol ifAbsent:[
- 			self error: 'Pool variable ',each,' not found!!'])].
- 	change removed do: [:each |
- 		classEditor removeSharedPool: (classEditor system edResolve: each asSymbol ifAbsent:[])].
- 	change moved notEmpty ifTrue: [
- 		classEditor rearrangeSharedPoolVarNames: change movedWithIndices]!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applyInstVarsChanged: (in category 'class changes') -----
- applyInstVarsChanged: change
- 	"Changed instvars."
- 
- 	| classEditor |
- 	classEditor := self classEditorForChange: change.
- 
- 	classEditor instanceVariableNames: change instVarNames scanNames
- "
- 	change added do: [:each | classEditor addInstVarName: each].
- 	change removed do: [:each | classEditor removeInstVarName: each].
- 	change moved notEmpty ifTrue: [
- 		classEditor rearrangeInstVarNames: change movedWithIndices]
- "!

Item was removed:
- ----- 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.!

Item was removed:
- ----- Method: DSVarsChange>>fromChange: (in category 'initialize-release') -----
- fromChange: aChange
- 
- 	super fromChange: aChange.
- 	self oldVars: aChange oldVars.!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applyClassCommentChanged: (in category 'class changes') -----
- applyClassCommentChanged: change
- 	"Changed a class comment."
- 
- 	(self classEditorForChange: change) classComment: change newComment stamp: change newStamp!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applyClassCreated: (in category 'class changes') -----
- applyClassCreated: change
- 	"Add a class."
- 
- 	| classEditor superclassEditor |
- 	self ensureSharedPools: change poolDictionaryNames.
- 	superclassEditor := editor at: change superclassName ifAbsent: [editor at: #Object].
- 	classEditor := superclassEditor subclass: change className
- 			instanceVariableNames: change instVarNames asSpaceString
- 			classVariableNames: change classVarNames asSpaceString
- 			poolDictionaries: change poolDictionaryNames asSpaceString
- 			category: change category.
- 	classEditor typeOfClass: change type!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applyClassCategoryChanged: (in category 'class changes') -----
- applyClassCategoryChanged: change
- 	"Changed a class category."
- 
- 	(self classEditorForChange: change) category: change newCategory!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applyClassSuperclassChanged: (in category 'class changes') -----
- applyClassSuperclassChanged: change
- 	"Changed a class superclass."
- 
- 	(self classEditorForChange: change)
- 		superclass: (editor at: change newSuperclassName ifAbsent: [editor at: #Object])!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applySuperclassChanged: (in category 'class changes') -----
- applySuperclassChanged: change
- 	"Change the superclass of a class."
- 
- 	| classEditor superEditor |
- 	classEditor := editor ensureClassNamed: change className.
- 	superEditor := editor at: change newSuperclassName ifAbsent: [^ self].
- 	classEditor superclass: superEditor!

Item was removed:
- ----- Method: MethodEditor>>source (in category '*DeltaStreams-Model') -----
- source
- 	^ source!

Item was removed:
- ----- Method: DSSystemEditorApplier>>applyClassInstVarsChanged: (in category 'class changes') -----
- applyClassInstVarsChanged: change
- 	"Changed class instvars."
- 
- 	| classEditor |
- 	classEditor := self classEditorForChange: change.
- 	change added do: [:each | classEditor addInstVarName: each].
- 	change removed do: [:each | classEditor removeInstVarName: each].
- 	change moved notEmpty ifTrue: [
- 		classEditor rearrangeInstVarNames: change movedWithIndices]!