[squeak-dev] The Inbox: System-laza.458.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Nov 3 00:42:52 UTC 2011
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
+ )!
More information about the Squeak-dev
mailing list
|