[Pkg] DeltaStreams: DeltaStreams-Logging-gk.4.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of DeltaStreams-Logging was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Logging-gk.4.mcz

==================== Summary ====================

Name: DeltaStreams-Logging-gk.4
Author: gk
Time: 11 March 2009, 2:13:12 pm
UUID: 11e8e62a-c020-46e2-ab83-1ed791a13bf7
Ancestors: DeltaStreams-Logging-mtf.3

Trvial rename of method to be consistent.

=============== Diff against DeltaStreams-Logging-mtf.3 ===============

Item was changed:
  ----- Method: DSDelta>>event: (in category '*deltastreams-logging') -----
  event: anEvent
  	"This is where events come in from the SystemChangeNotifier.
  	This code is similar to the old code in ChangeSet."
  
  	| class |
  	anEvent itemKind = SystemChangeNotifier classKind ifTrue: [
  		class := anEvent item.
  		class isBehavior ifFalse: [^ self]. "Ignore traits for now"
  		class wantsChangeSetLogging ifFalse: [^self].
+ 		anEvent isAdded ifTrue: [self logClassCreatedEvent: anEvent].
- 		anEvent isAdded ifTrue: [self logClassAddedEvent: anEvent].
  		anEvent isRemoved ifTrue: [self logClassRemovedEvent: anEvent].
  		anEvent isRenamed ifTrue: [self logClassRenamedEvent: anEvent].
  		anEvent isCommented ifTrue: [self logClassCommentedEvent: anEvent].
  		anEvent isModified ifTrue: [class isMeta
  			ifTrue: [self modifyMetaclass: class event: anEvent]
  			ifFalse: [self modifyClass: class event: anEvent]].
  		anEvent isReorganized ifTrue: [self reorganizeClass: anEvent item].
  		anEvent isRecategorized ifTrue: [self logClassCategoryChangedEvent: anEvent].
  	].
  
  	anEvent itemKind = SystemChangeNotifier methodKind ifTrue: [
  		class := anEvent itemClass.
  		class isBehavior ifFalse: [^ self]. "Ignore traits for now"
  		class wantsChangeSetLogging ifFalse: [^self].
  		anEvent isAdded ifTrue: [self logMethodAddedEvent: anEvent].
  		anEvent isRemoved ifTrue: [self logMethodRemovedEvent: anEvent].
  		anEvent isRecategorized ifTrue: [self logMethodProtocolEvent: anEvent from: anEvent oldCategory to: anEvent itemProtocol].
  		anEvent isModified ifTrue: [self logMethodModifyEvent: anEvent].
  	].!

Item was added:
+ ----- Method: DSDelta>>logClassCreatedEvent: (in category '*deltastreams-logging') -----
+ logClassCreatedEvent: anEvent
+ 	"A new class was created."
+ 
+ 	self addChange: (DSClassCreatedChange fromEvent: anEvent)!

Item was removed:
- ----- Method: DSDelta>>logClassAddedEvent: (in category '*deltastreams-logging') -----
- logClassAddedEvent: anEvent
- 	"A new class was created."
- 
- 	self addChange: (DSClassCreatedChange fromEvent: anEvent)!