dont forget to initialize private classes
when autoloading.
--- 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!