[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