# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1267192144 -3600
# Node ID 2e5f250f54261dd48b2b8f3353d1eec61c08eca1
# Parent  a035bfe4af1a1d57f51628906d231a24767c657a
changed: #loadAllClassesAsAutoloaded:

diff -r a035bfe4af1a -r 2e5f250f5426 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!