changed: #setPackageInNewClass:fromOld:
authorClaus Gittinger <cg@exept.de>
Fri, 11 Dec 2009 10:27:16 +0100
changeset 12602 dac64854462f
parent 12601 afe93f0d48c5
child 12603 70b6928c6365
changed: #setPackageInNewClass:fromOld:
ClassBuilder.st
--- a/ClassBuilder.st	Thu Dec 10 21:57:54 2009 +0100
+++ b/ClassBuilder.st	Fri Dec 11 10:27:16 2009 +0100
@@ -1834,6 +1834,7 @@
                     pkg == PackageId noProjectID ifTrue:[
                         pkg := oldPkg.
                     ] ifFalse:[ 
+                        newClass setPackage:pkg.  "/ so the notification handler knows, what we are talking about
                         answer := Class classRedefinitionNotification
                                       raiseRequestWith:(oldClass -> newClass)
                                       errorString:('redefinition of class: ' , oldClass name).
@@ -2208,9 +2209,9 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.87 2009-11-30 16:01:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.88 2009-12-11 09:27:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.87 2009-11-30 16:01:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.88 2009-12-11 09:27:16 cg Exp $'
 ! !