[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
|