--- a/MethodChange.st Wed Jun 18 17:40:51 2003 +0200
+++ b/MethodChange.st Wed Jun 18 17:41:21 2003 +0200
@@ -157,11 +157,16 @@
apply
"apply the change"
- |class|
+ |fullClassName class|
+
+ fullClassName := self nameSpaceName , '::' , self className.
- class := Smalltalk classNamed:self className.
+ class := Smalltalk classNamed:fullClassName.
class isNil ifTrue:[
- class := Parser evaluate:self className
+ class := Parser evaluate:fullClassName
+ ].
+ class isNil ifTrue:[
+ self error:('Cannot apply change for missing class: ' , fullClassName).
].
class compile:source classified:methodCategory logged:true.
! !
@@ -229,5 +234,5 @@
!MethodChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.32 2003-06-03 16:25:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.33 2003-06-18 15:41:21 cg Exp $'
! !