VSEPackageFileSourceWriter.st
changeset 3885 82006a572d15
parent 3786 1fb8c3b2299c
--- 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$'
 ! !