changed: #loadAllClassesAsAutoloaded:
authorClaus Gittinger <cg@exept.de>
Fri, 26 Feb 2010 14:49:04 +0100
changeset 12741 2e5f250f5426
parent 12740 a035bfe4af1a
child 12742 853d25401c13
changed: #loadAllClassesAsAutoloaded:
ProjectDefinition.st
--- a/ProjectDefinition.st	Fri Feb 26 14:44:41 2010 +0100
+++ b/ProjectDefinition.st	Fri Feb 26 14:49:04 2010 +0100
@@ -12,11 +12,11 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ProjectDefinition
-        instanceVariableNames:''
-        classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType
-                PackagesBeingLoaded Verbose'
-        poolDictionaries:''
-        category:'System-Support-Projects'
+	instanceVariableNames:''
+	classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType
+		PackagesBeingLoaded Verbose'
+	poolDictionaries:''
+	category:'System-Support-Projects'
 !
 
 ProjectDefinition class instanceVariableNames:'safeForOverwrittenMethods extensionOverwriteInfo projectIsLoaded'
@@ -4612,7 +4612,9 @@
     classNamesToAutoload := OrderedCollection new.
 
     hasClassesToLoad := false.
-    self classNamesAndAttributesDo:[:eachClassname :eachAttributes | |eachClassnameSym isAutoload cls|
+    self classNamesAndAttributesDo:[:eachClassname :eachAttributes | 
+        |eachClassnameSym isAutoload cls|
+
         eachClassnameSym := eachClassname asSymbol.
         isAutoload := asAutoloaded or:[eachAttributes includes:#autoload].
 
@@ -4634,7 +4636,6 @@
 
     hasClassesToLoad ifTrue:[
         Transcript showCR:('  %1: filing in missing classes individually...' bindWith:self name).
-
         loadedClasses := OrderedCollection new.
 
         self packageDirectory isNil ifTrue:[
@@ -4685,6 +4686,7 @@
                     revision:nil
                     numClassInstVars:0.     "FIXME"
             ] do:[
+                Transcript showCR:('  %1: filing in %2...' bindWith:self name with:eachClassName).
                 cls := Smalltalk
                             fileInClass:eachClassName
                             package:self package
@@ -5313,11 +5315,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.304 2010-02-26 13:44:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.305 2010-02-26 13:49:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.304 2010-02-26 13:44:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.305 2010-02-26 13:49:04 cg Exp $'
 ! !
 
 ProjectDefinition initialize!