--- a/VSEPackageFileSourceWriter.st Fri Feb 13 02:54:12 2015 +0100
+++ b/VSEPackageFileSourceWriter.st Fri Feb 13 02:59:36 2015 +0100
@@ -241,6 +241,10 @@
classesToFileout := classesToFileout reject:[:cls | cls isSubclassOf: ProjectDefinition ].
classesToFileout topologicalSort:[:a :b | b isSubclassOf:a].
+ (classesToFileout contains:[:cls | cls isPrivate]) ifTrue:[
+ self error:'Cannot file out private classes'.
+ ].
+
rewriter := self class vseSourceRewriter new.
rewriter classNamesToRewrite:classNameTranslations.
@@ -380,10 +384,10 @@
!VSEPackageFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.17 2015-02-10 20:25:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.18 2015-02-13 01:59:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.17 2015-02-10 20:25:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.18 2015-02-13 01:59:36 cg Exp $'
! !