changed: #addMethodPackageChange:package:in:
care for unbound method (no selector)
--- a/ChangeSet.st Tue Oct 23 15:58:58 2012 +0200
+++ b/ChangeSet.st Fri Oct 26 13:24:28 2012 +0200
@@ -986,11 +986,14 @@
addMethodPackageChange:aMethod package:newPackage in:aClass
"add a methodPackage change to the receiver"
- |newChange|
+ |newChange selector|
+
+ selector := (aClass selectorAtMethod:aMethod).
+ selector isNil ifTrue:[^ self].
newChange := MethodPackageChange
class:aClass
- selector:(aClass selectorAtMethod:aMethod)
+ selector:selector
package:newPackage.
self rememberChangedClass:aClass.
self addChange:newChange
@@ -4100,11 +4103,11 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.201 2012-10-19 15:00:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.202 2012-10-26 11:24:28 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.201 2012-10-19 15:00:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.202 2012-10-26 11:24:28 cg Exp $'
!
version_SVN