[squeak-dev] The Trunk: System-ul.463.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Dec 9 11:25:45 UTC 2011
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.463.mcz
==================== Summary ====================
Name: System-ul.463
Author: ul
Time: 9 December 2011, 11:24:39.002 am
UUID: fe76ac7d-1ea5-a641-abdf-4672a7b3f28d
Ancestors: System-dtl.462
- log class creation in SmalltalkImage >> #event:
=============== Diff against System-dtl.462 ===============
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: [
- "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 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: [
| newProtocol |
newProtocol := anEvent itemClass organization categoryOfElement: anEvent item selector.
^self logChange: anEvent itemClass name , ' organization classify: ', anEvent item selector storeString, ' under: ', newProtocol storeString.
].
].!
More information about the Squeak-dev
mailing list
|