[squeak-dev] The Trunk: System-topa.804.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Mar 3 16:13:20 UTC 2016
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.
].
].!
More information about the Squeak-dev
mailing list
|