--- a/Smalltalk.st Tue Feb 24 14:29:07 2015 +0100
+++ b/Smalltalk.st Tue Feb 24 16:47:54 2015 +0100
@@ -5065,21 +5065,26 @@
|dirsConsulted|
- dirsConsulted := Set new.
-
- "/ along the package-path
- self packagePath do:[:eachPathComponent |
- (dirsConsulted includes:eachPathComponent) ifFalse:[
- self
- recursiveInstallAutoloadedClassesFrom:eachPathComponent
- rememberIn:dirsConsulted
- maxLevels:15
- noAutoload:false
- packageTop:eachPathComponent
- showSplashInLevels:2.
- ]
- ].
- self splashInfo:nil.
+ Smalltalk changed:#preLoad.
+ [
+ dirsConsulted := Set new.
+
+ "/ along the package-path
+ self packagePath do:[:eachPathComponent |
+ (dirsConsulted includes:eachPathComponent) ifFalse:[
+ self
+ recursiveInstallAutoloadedClassesFrom:eachPathComponent
+ rememberIn:dirsConsulted
+ maxLevels:15
+ noAutoload:false
+ packageTop:eachPathComponent
+ showSplashInLevels:2.
+ ]
+ ].
+ self splashInfo:nil.
+ ] ensure:[
+ Smalltalk changed:#postLoad
+ ].
"
Smalltalk installAutoloadedClasses
@@ -8191,11 +8196,11 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1114 2015-02-20 22:50:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1115 2015-02-24 15:47:54 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1114 2015-02-20 22:50:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1115 2015-02-24 15:47:54 cg Exp $'
!
version_SVN