ClassBuilder.st
changeset 18888 df59aca78aa3
parent 17695 2f478cffbfab
child 18889 2383cb158535
child 18989 2e7fc0e4df9b
--- a/ClassBuilder.st	Mon Nov 09 16:30:27 2015 +0100
+++ b/ClassBuilder.st	Thu Nov 12 14:17:03 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -1275,17 +1273,16 @@
 handleHardNewClass:newClass
     |oldCategory|
 
-    Class flushSubclassInfoFor:oldSuperClass.
-    Class flushSubclassInfoFor:newSuperClass.
-
     "/ don't allow built-in classes to be modified this way
     (superClassChange and:[oldClass notNil and:[oldClass isBuiltInClass]]) ifTrue:[
         ClassBuildError raiseErrorString:'the inheritance of this class is fixed - you cannot change it'.
         ^ oldClass
     ].
 
-"/    "/ since we will change the inheritance of some class(es)
-"/    Class flushSubclassInfo.
+    "/ since we will change the inheritance of some class(es)
+    Class 
+        flushSubclassInfoFor:oldSuperClass;
+        flushSubclassInfoFor:newSuperClass.
 
     "/ catch special case, where superclass changed its layout and thus
     "/ forced redefinition of this class; 
@@ -2396,11 +2393,11 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.136 2015-03-27 10:41:00 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.136 2015-03-27 10:41:00 stefan Exp $'
+    ^ '$Header$'
 ! !