--- a/VSEPackageFileSourceWriter.st Mon Jul 06 15:52:00 2015 +0200
+++ b/VSEPackageFileSourceWriter.st Mon Jul 06 15:52:07 2015 +0200
@@ -128,10 +128,14 @@
(skipDocumentationMethod and:[sel == #documentation]) ifTrue:[
"/ skip method
] ifFalse:[
- sel == #initialize ifTrue:[
- hasInitialize := true.
+ (skipVersionMethods and:[sel == #version or:[sel startsWith:'version_']]) ifTrue:[
+ "/ skip method
+ ] ifFalse:[
+ sel == #initialize ifTrue:[
+ hasInitialize := true.
+ ].
+ self fileOutMethod:(aClass class methodDictionary at:sel) isExtension:false on:aStream.
].
- self fileOutMethod:(aClass class methodDictionary at:sel) isExtension:false on:aStream.
].
].
@@ -386,10 +390,10 @@
!VSEPackageFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.19 2015-02-13 02:02:36 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.19 2015-02-13 02:02:36 cg Exp $'
+ ^ '$Header$'
! !