class: ChangeSet
authorClaus Gittinger <cg@exept.de>
Fri, 28 Nov 2014 12:43:31 +0100
changeset 3648 c66bc4f3ee3f
parent 3647 41283198781e
child 3649 0abe295fab70
class: ChangeSet changed: #addMethodChange:fromOld:in: #addMethodChange:in: oops - created MethodChange instances instead of MethodDefinitionChangeInstances
ChangeSet.st
--- a/ChangeSet.st	Thu Nov 27 21:12:44 2014 +0100
+++ b/ChangeSet.st	Fri Nov 28 12:43:31 2014 +0100
@@ -761,7 +761,6 @@
     "Created: / 27.10.1997 / 13:52:54 / cg"
 ! !
 
-
 !ChangeSet class methodsFor:'Compatibility-VW'!
 
 component: component definition: anObject change: changeSymbol
@@ -1199,7 +1198,7 @@
 
     |newChange|
 
-    newChange := MethodChange 
+    newChange := MethodDefinitionChange 
                         class:aClass
                         selector:aMethod selector
                         source:aMethod source
@@ -1218,7 +1217,7 @@
 
     |newChange|
 
-    newChange := MethodChange 
+    newChange := MethodDefinitionChange 
                         class:aClass
                         selector:aMethod selector
                         source:aMethod source
@@ -2802,7 +2801,7 @@
             methodSelector := parser selector.
         ].
 
-        change := MethodChange new.
+        change := MethodDefinitionChange new.
         change 
             className:className
             selector:methodSelector
@@ -4144,7 +4143,7 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSet.st,v 1.249 2014-11-27 20:10:44 cg Exp $'
+    ^ '$Id: ChangeSet.st,v 1.250 2014-11-28 11:43:31 cg Exp $'
 ! !
 
 !ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
@@ -4770,7 +4769,7 @@
         methodSelector := parser selector.
     ].
 
-    change := MethodChange new.
+    change := MethodDefinitionChange new.
     change 
         className:className
         selector:methodSelector
@@ -4823,11 +4822,11 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.249 2014-11-27 20:10:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.250 2014-11-28 11:43:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.249 2014-11-27 20:10:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.250 2014-11-28 11:43:31 cg Exp $'
 !
 
 version_HG
@@ -4836,6 +4835,6 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSet.st,v 1.249 2014-11-27 20:10:44 cg Exp $'
+    ^ '$Id: ChangeSet.st,v 1.250 2014-11-28 11:43:31 cg Exp $'
 ! !