For class initialization chunk, create ClassInitializeChange instead of plain DoItChange.
--- a/ChangeSet.st Fri Mar 21 19:33:41 2014 +0100
+++ b/ChangeSet.st Fri Mar 21 19:33:45 2014 +0100
@@ -2611,11 +2611,17 @@
!
handleClassInitializeChange
- |change|
-
- change := DoItChange new source: chunk.
+ | change nm |
+
+ nm := self receiversClassNameRememberingNamespace.
+
+ change := ClassInitializeChange new source: chunk.
+ change className: nm.
self addChange: change.
+
^ true
+
+ "Modified: / 21-03-2014 / 18:19:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
handleClassInstanceVariableDefinitionChange
@@ -3968,7 +3974,7 @@
!
version_SVN
- ^ '$Id: ChangeSet.st,v 1.240 2014-03-14 16:41:47 vrany Exp $'
+ ^ '$Id: ChangeSet.st,v 1.241 2014-03-21 18:33:45 vrany Exp $'
! !
!ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
@@ -4633,11 +4639,11 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.240 2014-03-14 16:41:47 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.241 2014-03-21 18:33:45 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.240 2014-03-14 16:41:47 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.241 2014-03-21 18:33:45 vrany Exp $'
!
version_HG
@@ -4646,6 +4652,6 @@
!
version_SVN
- ^ '$Id: ChangeSet.st,v 1.240 2014-03-14 16:41:47 vrany Exp $'
+ ^ '$Id: ChangeSet.st,v 1.241 2014-03-21 18:33:45 vrany Exp $'
! !