equal
deleted
inserted
replaced
126 ]. |
126 ]. |
127 aClass class methodDictionary keys asNewOrderedCollection sort do:[:sel | |
127 aClass class methodDictionary keys asNewOrderedCollection sort do:[:sel | |
128 (skipDocumentationMethod and:[sel == #documentation]) ifTrue:[ |
128 (skipDocumentationMethod and:[sel == #documentation]) ifTrue:[ |
129 "/ skip method |
129 "/ skip method |
130 ] ifFalse:[ |
130 ] ifFalse:[ |
131 sel == #initialize ifTrue:[ |
131 (skipVersionMethods and:[sel == #version or:[sel startsWith:'version_']]) ifTrue:[ |
132 hasInitialize := true. |
132 "/ skip method |
|
133 ] ifFalse:[ |
|
134 sel == #initialize ifTrue:[ |
|
135 hasInitialize := true. |
|
136 ]. |
|
137 self fileOutMethod:(aClass class methodDictionary at:sel) isExtension:false on:aStream. |
133 ]. |
138 ]. |
134 self fileOutMethod:(aClass class methodDictionary at:sel) isExtension:false on:aStream. |
|
135 ]. |
139 ]. |
136 ]. |
140 ]. |
137 |
141 |
138 hasInitialize ifTrue:[ |
142 hasInitialize ifTrue:[ |
139 |initializerCode| |
143 |initializerCode| |
384 ! ! |
388 ! ! |
385 |
389 |
386 !VSEPackageFileSourceWriter class methodsFor:'documentation'! |
390 !VSEPackageFileSourceWriter class methodsFor:'documentation'! |
387 |
391 |
388 version |
392 version |
389 ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.19 2015-02-13 02:02:36 cg Exp $' |
393 ^ '$Header$' |
390 ! |
394 ! |
391 |
395 |
392 version_CVS |
396 version_CVS |
393 ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.19 2015-02-13 02:02:36 cg Exp $' |
397 ^ '$Header$' |
394 ! ! |
398 ! ! |
395 |
399 |