- ClassBuilder jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sun, 13 May 2012 18:32:24 +0100
branchjv
changeset 17942 fcc608457255
parent 17941 3651a18f3703
child 17943 1d2620126660
- ClassBuilder changed: #setupNewClass:fromOld:
ClassBuilder.st
libbasic.rc
--- a/ClassBuilder.st	Wed May 09 16:04:12 2012 +0100
+++ b/ClassBuilder.st	Sun May 13 18:32:24 2012 +0100
@@ -2045,6 +2045,7 @@
     ].
     oldClass notNil ifTrue:[
         "/ setting first will make new class clear obsolete classvars
+        newClass setLookupObject: (oldClass lookupObject).
         newClass setClassVariableString:(oldClass classVariableString).
         newClass setSharedPoolNames:(oldClass sharedPoolNames).
         newClass setClassFilename:(oldClass getClassFilename).
@@ -2055,6 +2056,7 @@
     newClass setClassVariableString:classVariableNames.
 
     "Modified: / 18-01-2011 / 20:44:04 / cg"
+    "Modified: / 13-05-2012 / 17:49:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassBuilder methodsFor:'checks'!
@@ -2362,22 +2364,15 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.114 2012/01/31 13:14:34 cg Exp $'
+    ^ '$Id: ClassBuilder.st 10810 2012-05-13 17:32:24Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.114 2012/01/31 13:14:34 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.114 2012/01/31 13:14:34 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: ClassBuilder.st 10777 2012-02-13 19:19:41Z vranyj1 $'
+    ^ '$Id: ClassBuilder.st 10810 2012-05-13 17:32:24Z vranyj1 $'
 ! !
 
 ClassBuilder initialize!
-
-
-
-
-
-
-
--- a/libbasic.rc	Wed May 09 16:04:12 2012 +0100
+++ b/libbasic.rc	Sun May 13 18:32:24 2012 +0100
@@ -3,7 +3,7 @@
 // automagically generated from the projectDefinition: stx_libbasic.
 //
 VS_VERSION_INFO VERSIONINFO
-  FILEVERSION     6,2,10797,10797
+  FILEVERSION     6,2,10808,10808
   PRODUCTVERSION  6,2,1,1
 #if (__BORLANDC__)
   FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
@@ -20,12 +20,12 @@
     BEGIN
       VALUE "CompanyName", "eXept Software AG\0"
       VALUE "FileDescription", "Smalltalk/X Basic Classes (LIB)\0"
-      VALUE "FileVersion", "6.2.10797.10797\0"
+      VALUE "FileVersion", "6.2.10808.10808\0"
       VALUE "InternalName", "stx:libbasic\0"
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.1.1\0"
-      VALUE "ProductDate", "Wed, 09 May 2012 14:59:50 GMT\0"
+      VALUE "ProductDate", "Sun, 13 May 2012 17:34:40 GMT\0"
     END
 
   END