[squeak-dev] The Trunk: Kernel-laza.649.mcz

Levente Uzonyi leves at elte.hu
Tue Nov 15 12:14:32 UTC 2011


I had to add an mcm to the Trunk to ensure that this package is loaded 
after System-laza.459.


Levente

On Fri, 4 Nov 2011, commits at source.squeak.org wrote:

> Alexander Lazarević uploaded a new version of Kernel to project The Trunk:
> http://source.squeak.org/trunk/Kernel-laza.649.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-laza.649
> Author: laza
> Time: 3 November 2011, 1:09:36.555 am
> UUID: 9ee9cceb-4b76-3d41-8a57-bd0b6eb79dc0
> Ancestors: Kernel-eem.648
>
> Make protocol changes be recorded by the changes file.
>
> =============== Diff against Kernel-eem.648 ===============
>
> Item was changed:
>  ----- Method: ClassOrganizer>>addCategory:before: (in category 'accessing') -----
>  addCategory: catString before: nextCategory
> - 	| oldCategories |
> - 	oldCategories := self categories copy.
>  	SystemChangeNotifier uniqueInstance doSilently: [
>  		super addCategory: catString before: nextCategory].
> + 	self notifyOfChangedCategoryFrom: nil to: catString.!
> - 	self notifyOfChangedCategoriesFrom: oldCategories to: self categories.!
>
> Item was changed:
>  ----- Method: ClassOrganizer>>notifyOfChangedCategoryFrom:to: (in category 'private') -----
>  notifyOfChangedCategoryFrom: oldNameOrNil to: newNameOrNil
>  	(self hasSubject and: [oldNameOrNil ~= newNameOrNil])
> + 		ifTrue: [
> + 			oldNameOrNil
> + 				ifNil: [
> + 					newNameOrNil ifNotNil: [
> + 						SystemChangeNotifier uniqueInstance
> + 							protocolAdded: newNameOrNil inClass: self subject.
> + 					]
> + 				]
> + 				ifNotNil: [
> + 					newNameOrNil ifNil: [
> + 						SystemChangeNotifier uniqueInstance
> + 							protocolRemoved: oldNameOrNil inClass: self subject.
> + 					]
> + 					ifNotNil: [
> + 						SystemChangeNotifier uniqueInstance
> + 							protocolRenamedFrom: oldNameOrNil to: newNameOrNil inClass: self subject.
> + 					]
> + 				].
> + 		].!
> - 		ifTrue: [SystemChangeNotifier uniqueInstance classReorganized: self subject].!
>
> Item was changed:
>  ----- Method: ClassOrganizer>>removeCategory: (in category 'accessing') -----
>  removeCategory: cat
> - 	| oldCategories |
> - 	oldCategories := self categories copy.
>  	SystemChangeNotifier uniqueInstance doSilently: [
>  		super removeCategory: cat].
> + 	self notifyOfChangedCategoryFrom: cat to: nil.!
> - 	self notifyOfChangedCategoriesFrom: oldCategories to: self categories.!
>
> Item was changed:
>  ----- Method: ClassOrganizer>>renameCategory:toBe: (in category 'accessing') -----
>  renameCategory: oldCatString toBe: newCatString
> + 	| oldCat newCat |
> - 	| oldCat newCat oldElementsBefore oldElementsAfter |
>  	oldCat := oldCatString asSymbol.
>  	newCat := newCatString asSymbol.
> - 	oldElementsBefore := self listAtCategoryNamed: oldCat.
>  	SystemChangeNotifier uniqueInstance doSilently: [
>  		super renameCategory: oldCatString toBe: newCatString].
> - 	oldElementsAfter := (self listAtCategoryNamed: oldCat) asSet.
> - 	oldElementsBefore do: [:each |
> - 		(oldElementsAfter includes: each)
> - 			ifFalse: [self notifyOfChangedSelector: each from: oldCat to: newCat].
> - 	].
>  	self notifyOfChangedCategoryFrom: oldCat to: newCat.!
>
>
>



More information about the Squeak-dev mailing list