--- a/Metaclass.st Wed Nov 15 13:38:06 2000 +0100
+++ b/Metaclass.st Wed Nov 15 13:38:53 2000 +0100
@@ -517,6 +517,10 @@
oldClass changed:#definition.
self changed:#definition.
+ self nameSpace changed:#classDefinition with:self.
+ self nameSpace ~~ Smalltalk ifTrue:[
+ Smalltalk changed:#classDefinition with:self.
+ ].
^ newMetaclass
@@ -1879,7 +1883,8 @@
newClass methodDictionary:newMethodDict.
"Modified: 7.6.1996 / 08:33:52 / stefan"
- "Modified: 19.6.1997 / 18:27:09 / cg"!
+ "Modified: 19.6.1997 / 18:27:09 / cg"
+!
copyMethodsFrom:oldClass for:newClass
"copy all methods from oldClass to newClass.
@@ -1890,7 +1895,8 @@
newClass methodDictionary:(oldClass methodDictionary copy).
newClass methodDictionary keysAndValuesDo:[:sel :mthd | mthd mclass:nil.].
- "Modified: 7.6.1996 / 08:34:43 / stefan"!
+ "Modified: 7.6.1996 / 08:34:43 / stefan"
+!
differentInstanceVariableOffsetsIn:class1 and:class2
"return a set of instance variable names which have different
@@ -2139,6 +2145,6 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.173 2000-10-25 08:44:35 src Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.174 2000-11-15 12:38:53 cg Exp $'
! !
Metaclass initialize!