comments only
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jul 1998 13:24:29 +0200
changeset 3686 13a16c077970
parent 3685 04fd42507276
child 3687 13d500d00047
comments only
Metaclass.st
--- a/Metaclass.st	Tue Jul 28 21:46:27 1998 +0200
+++ b/Metaclass.st	Wed Jul 29 13:24:29 1998 +0200
@@ -255,7 +255,7 @@
 
         "
          but have to recompile methods accessing stuff now defined
-         (it might have been a global before ...)
+         (it might have been a global/undeclared before ...)
         "
 
         addedNames := newNames select:[:nm | (oldNames includes:nm) not].
@@ -304,7 +304,7 @@
                           ' accessing any of ' , changeSet printString.
 
         "
-         recompile class-methods
+         recompile class-methods accessing any c-instvar with a changed position
         "
         self copyInvalidatedMethodsFrom:self for:newMetaclass accessingAny:changeSet.
         newMetaclass recompileInvalidatedMethods.
@@ -381,7 +381,7 @@
 
         aSubclass category:#'* obsolete *'.
 
-        "/ preserve existing classInstVar values (but not thise from Class)
+        "/ preserve existing classInstVar values (but not those from Class)
 
         newSubMeta allInstVarNames do:[:nm |
             |v|
@@ -502,7 +502,7 @@
 
     "Created: / 29.10.1995 / 19:57:08 / cg"
     "Modified: / 1.4.1997 / 15:44:09 / stefan"
-    "Modified: / 18.4.1998 / 14:00:39 / cg"
+    "Modified: / 29.7.1998 / 12:12:50 / cg"
 ! !
 
 !Metaclass methodsFor:'copying'!
@@ -1968,6 +1968,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.129 1998-07-09 23:57:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.130 1998-07-29 11:24:29 cg Exp $'
 ! !
 Metaclass initialize!