The Trunk: System-topa.804.mcz

Tobias Pape uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-topa.804.mcz

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

Name: System-topa.804
Author: topa
Time: 3 March 2016, 5:12:55.830954 pm
UUID: cbcd913c-9bbb-41f1-b85e-82859d493748
Ancestors: System-eem.803

Use itemSelector for bith removed and recategorized events.

=============== Diff against System-eem.803 ===============

Item was changed:
  ----- Method: SmalltalkImage>>event: (in category 'sources, changes log') -----
  event: anEvent
  "Hook for SystemChangeNotifier"
 
  anEvent isDoIt ifTrue: [^self logChange: anEvent item].
  (anEvent itemKind = SystemChangeNotifier categoryKind) ifTrue: [
  anEvent isAdded
  ifTrue: [^self logChange: 'SystemOrganization addCategory: ', anEvent item storeString].
  anEvent isRemoved
  ifTrue: [^self logChange: 'SystemOrganization removeSystemCategory: ', anEvent item storeString].
  anEvent isRenamed
  ifTrue: [^self logChange: 'SystemOrganization renameCategory: ', anEvent oldName storeString, ' toBe: ', anEvent newName storeString].
  ].
 
  (anEvent itemKind = SystemChangeNotifier classKind) ifTrue: [
  anEvent item acceptsLoggingOfCompilation ifFalse: [^self].
  anEvent isAdded ifTrue: [
  self logChange: anEvent item definition.
  ].
  anEvent isModified
  ifTrue: [^self logChange: anEvent item definition].
  anEvent isRemoved
  ifTrue: [^self logChange: 'Smalltalk removeClassNamed: ' , anEvent item name storeString].
  anEvent isRenamed
  ifTrue: [^self logChange: 'Smalltalk renameClassNamed: ', anEvent oldName storeString, ' as: ', anEvent newName storeString].
  anEvent isRecategorized
  ifTrue: [^self logChange: 'SystemOrganization classify: ', anEvent item name storeString, ' under: ', anEvent itemCategory storeString].
  ].
 
  (anEvent itemKind = SystemChangeNotifier protocolKind) ifTrue: [
  anEvent isAdded
  ifTrue: [^self logChange: anEvent itemClass name , ' organization addCategory: ' , anEvent itemProtocol storeString].
  anEvent isRemoved
  ifTrue: [^self logChange: anEvent itemClass name , ' organization removeCategory: ' , anEvent itemProtocol storeString].
  anEvent isRenamed
  ifTrue: [^self logChange: anEvent itemClass name , ' organization renameCategory: ' , anEvent oldName storeString, ' toBe: ', anEvent newName storeString].
  ].
 
  (anEvent itemKind = SystemChangeNotifier methodKind) ifTrue: [
  anEvent itemClass acceptsLoggingOfCompilation ifFalse: [^self].
  anEvent isRemoved
  ifTrue: [^self logChange: anEvent itemClass name , ' removeSelector: ' , anEvent itemSelector storeString].
  anEvent isRecategorized
  ifTrue: [
+ ^self logChange: anEvent itemClass name , ' organization classify: ', anEvent itemSelector storeString, ' under: ', anEvent itemProtocol storeString.
- ^self logChange: anEvent itemClass name , ' organization classify: ', anEvent item selector storeString, ' under: ', anEvent itemProtocol storeString.
  ].
  ].!