VSEPackageFileSourceWriter.st
changeset 3757 437dd4927111
parent 3756 30fb6df85906
child 3759 18627f1b26e5
--- a/VSEPackageFileSourceWriter.st	Thu Feb 05 12:35:28 2015 +0100
+++ b/VSEPackageFileSourceWriter.st	Thu Feb 05 12:40:54 2015 +0100
@@ -413,7 +413,16 @@
 
     aStream lineEndCRLF.
 
-    classesToFileout := Smalltalk allClassesInPackage:packageID.
+    "/ make sure that everything is loaded.
+    projectDefinitionClass notNil ifTrue:[
+        projectDefinitionClass autoload.
+        projectDefinitionClass ensureFullyLoaded.
+        classesToFileout := Smalltalk allClassesInPackage:packageID.
+    ] ifFalse:[
+        classesToFileout := Smalltalk allClassesInPackage:packageID.
+        classesToFileout := classesToFileout collect:[:each | each autoload].
+    ].
+
     classesToFileout := classesToFileout reject:[:cls | cls isSubclassOf: ProjectDefinition ].
     classesToFileout topologicalSort:[:a :b | b isSubclassOf:a].
 
@@ -474,10 +483,10 @@
 !VSEPackageFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.10 2015-02-05 11:35:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.11 2015-02-05 11:40:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.10 2015-02-05 11:35:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.11 2015-02-05 11:40:54 cg Exp $'
 ! !