Alexander Lazarević uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/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.!
squeak-dev@lists.squeakfoundation.org