David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.512.mcz
==================== Summary ====================
Name: System-dtl.512 Author: dtl Time: 17 January 2013, 8:12:00.656 pm UUID: 3e96758d-c221-4b54-bc03-b8a66e2ca3cd Ancestors: System-fbs.511
Only the instance of SystemOrganizer that is the global SystemOrganization should send change notifications to the singleton SystemChangeNotifier.
Addresses the case of a FileContentsBrowser that uses a new SystemOrganization to load code for browsing and should not initiate a system change notification for the class being browsed, as reported by Bob Arning on squeak-dev http://lists.squeakfoundation.org/pipermail/squeak-dev/2013-January/167941.h...
=============== Diff against System-fbs.511 ===============
Item was changed: ----- Method: SystemOrganizer>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory + self == SystemOrganization ifTrue: [ + SystemChangeNotifier uniqueInstance + doSilently: [super addCategory: catString before: nextCategory]; + classCategoryAdded: catString]! - SystemChangeNotifier uniqueInstance - doSilently: [super addCategory: catString before: nextCategory]; - classCategoryAdded: catString!
Item was changed: ----- Method: SystemOrganizer>>classify:under: (in category 'accessing') ----- classify: element under: newCategory | oldCategory class | oldCategory := self categoryOfElement: element. super classify: element under: newCategory. class := Smalltalk at: element ifAbsent: [^ self]. + self == SystemOrganization ifTrue: [ + SystemChangeNotifier uniqueInstance + class: class + recategorizedFrom: oldCategory + to: newCategory]! - SystemChangeNotifier uniqueInstance - class: class - recategorizedFrom: oldCategory - to: newCategory !
Item was changed: ----- Method: SystemOrganizer>>removeCategory: (in category 'accessing') ----- removeCategory: cat | r | r := super removeCategory: cat. + self == SystemOrganization + ifTrue: [SystemChangeNotifier uniqueInstance classCategoryRemoved: cat]. - SystemChangeNotifier uniqueInstance classCategoryRemoved: cat. ^ r!
Item was changed: ----- Method: SystemOrganizer>>renameCategory:toBe: (in category 'accessing') ----- renameCategory: oldCatString toBe: newCatString | r | r := super renameCategory: oldCatString toBe: newCatString. + self == SystemOrganization ifTrue: [ + SystemChangeNotifier uniqueInstance + classCategoryRenamedFrom: oldCatString to: newCatString]. - SystemChangeNotifier uniqueInstance - classCategoryRenamedFrom: oldCatString to: newCatString. ^ r!
packages@lists.squeakfoundation.org