For class initialization chunk, create ClassInitializeChange instead of plain DoItChange.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 21 Mar 2014 19:33:45 +0100
changeset 3526 e64bd3cbd704
parent 3525 35c2d04cb470
child 3527 0e21d5cb0e14
For class initialization chunk, create ClassInitializeChange instead of plain DoItChange.
ChangeSet.st
--- 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 $'
 ! !