Alexander Lazarević uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-laza.458.mcz
==================== Summary ====================
Name: System-laza.458 Author: laza Time: 3 November 2011, 1:07:36.814 am UUID: 8f28a011-2e47-6a4a-b6a1-8a141585de6a Ancestors: System-laza.457
Connect some lose ends to make more changes be recorded by the changes file
=============== Diff against System-laza.457 ===============
Item was added: + ----- Method: AbstractEvent class>>protocol:class: (in category 'instance creation') ----- + protocol: aProtocol class: aClass + + | instance | + instance := self item: aProtocol kind: self protocolKind. + instance itemClass: aClass. + ^instance!
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 isRemoved and: [anEvent itemKind = SystemChangeNotifier classKind]) ifTrue: [ - anEvent item acceptsLoggingOfCompilation - ifTrue: [self logChange: 'Smalltalk removeClassNamed: #' , anEvent item name]. ]. + + (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 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. + ]. + ].! - anEvent isDoIt - ifTrue: [self logChange: anEvent item]. - (anEvent isRemoved and: [anEvent itemKind = SystemChangeNotifier methodKind]) ifTrue: [ - anEvent itemClass acceptsLoggingOfCompilation - ifTrue: [self logChange: anEvent itemClass name , ' removeSelector: #' , anEvent itemSelector]].!
Item was added: + ----- Method: SystemChangeNotifier>>protocolAdded:inClass: (in category 'system triggers') ----- + protocolAdded: aProtocol inClass: aClass + self trigger: ( + AddedEvent protocol: aProtocol class: aClass + )!
Item was added: + ----- Method: SystemChangeNotifier>>protocolRemoved:inClass: (in category 'system triggers') ----- + protocolRemoved: aProtocol inClass: aClass + self trigger: ( + RemovedEvent protocol: aProtocol class: aClass + )!
Item was added: + ----- Method: SystemChangeNotifier>>protocolRenamedFrom:to:inClass: (in category 'system triggers') ----- + protocolRenamedFrom: anOldProtocol to: aNewProtocol inClass: aClass + self trigger: ( + (RenamedEvent protocol: anOldProtocol class: aClass) + oldName: anOldProtocol; + newName: aNewProtocol + )!
squeak-dev@lists.squeakfoundation.org