The Trunk: Kernel-bf.680.mcz

Bert Freudenberg uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-bf.680.mcz

==================== Summary ====================

Name: Kernel-bf.680
Author: bf
Time: 19 April 2012, 6:23:49.174 pm
UUID: b7735cff-3ec1-47d5-9c49-6f054f21f317
Ancestors: Kernel-eem.679

When manually recategorizing a method, make an entry in the changes file. Otherwise the methpd's latest change record in the changes file will not match what's in the image, confusing Monticello.

=============== Diff against Kernel-eem.679 ===============

Item was added:
+ ----- Method: ClassOrganizer>>classify:under:logged: (in category 'accessing') -----
+ classify: element under: heading logged: aBoolean
+ self classify: element under: heading suppressIfDefault: true logged: aBoolean
+ !

Item was added:
+ ----- Method: ClassOrganizer>>classify:under:suppressIfDefault:logged: (in category 'accessing') -----
+ classify: element under: heading suppressIfDefault: aBoolean logged: logged
+ | oldCat newCat |
+ oldCat := self categoryOfElement: element.
+ SystemChangeNotifier uniqueInstance doSilently: [
+ super classify: element under: heading suppressIfDefault: aBoolean].
+ newCat := self categoryOfElement: element.
+ self notifyOfChangedSelector: element from: oldCat to: newCat.
+ logged ifTrue: [self logChangedSelector: element category: newCat].
+ !

Item was added:
+ ----- Method: ClassOrganizer>>logChangedSelector:category: (in category 'private') -----
+ logChangedSelector: element category: newCategory
+ "make an entry in the changes to record the changed category"
+ | method |
+ "if we do not have a changes file, the code below would try to make a new method"
+ (subject == nil or: [SourceFiles == nil or: [(SourceFiles at: 2) == nil]]) ifTrue: [^self].
+ method := subject compiledMethodAt: element ifAbsent: [^self].
+ subject logMethodSource: (method getSourceFor: element in: subject)
+ forMethodWithNode: (CompiledMethodWithNode method: method node: method)
+ inCategory: newCategory withStamp: method timeStamp notifying: nil.
+ !

Item was added:
+ ----- Method: ClassOrganizer>>logSelectorsInChangedCategory: (in category 'private') -----
+ logSelectorsInChangedCategory: newCategory
+ "make an entry in the changes file for each method in the changed category"
+ (self listAtCategoryNamed: newCategory) do: [:element |
+ self logChangedSelector: element category: newCategory].
+ !

Item was changed:
  ----- Method: ClassOrganizer>>renameCategory:toBe: (in category 'accessing') -----
  renameCategory: oldCatString toBe: newCatString
  SystemChangeNotifier uniqueInstance
  doSilently: [super renameCategory: oldCatString toBe: newCatString];
+ protocolRenamedFrom: oldCatString asSymbol to: newCatString asSymbol inClass: self subject.
+ self logSelectorsInChangedCategory: newCatString.
+ !
- protocolRenamedFrom: oldCatString asSymbol to: newCatString asSymbol inClass: self subject!