[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