class: ChangeSet
changed:
#addMethodChange:fromOld:in:
#addMethodChange:in:
oops - created MethodChange instances instead of
MethodDefinitionChangeInstances
--- 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 $'
! !