Ah yes, thanks.

2011/11/15 Levente Uzonyi <leves at elte.hu>

> 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&#263; uploaded a new version of Kernel to project The
>> Trunk:
>> http://source.squeak.org/**trunk/Kernel-laza.649.mcz<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.!
>>
>>
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20111115/6443bcd2/attachment.htm