--- 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 $'
! !