dont forget to initialize private classes
authorClaus Gittinger <cg@exept.de>
Sat, 12 Apr 1997 15:43:52 +0200
changeset 2539 ed836330dbff
parent 2538 6bbfd3558458
child 2540 a9388e872a51
dont forget to initialize private classes when autoloading.
Autoload.st
--- a/Autoload.st	Sat Apr 12 11:22:20 1997 +0200
+++ b/Autoload.st	Sat Apr 12 15:43:52 1997 +0200
@@ -337,10 +337,15 @@
     (newClass class implements:#initialize) ifTrue:[
         newClass initialize.
     ].
+    newClass privateClassesDo:[:aPrivateClass |
+        (aPrivateClass implements:#initialize) ifTrue:[
+            aPrivateClass initialize.
+        ]
+    ].
     newClass postAutoload.
     ^ newClass
 
-    "Modified: 7.2.1997 / 13:34:19 / cg"
+    "Modified: 12.4.1997 / 15:42:29 / cg"
 ! !
 
 !Autoload class methodsFor:'message catching'!
@@ -545,6 +550,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.67 1997-04-07 16:21:27 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.68 1997-04-12 13:43:52 cg Exp $'
 ! !
 Autoload initialize!