equal
deleted
inserted
replaced
920 metaClass := aClass theMetaclass. |
920 metaClass := aClass theMetaclass. |
921 className := nonMetaClass name. |
921 className := nonMetaClass name. |
922 |
922 |
923 self startCollectChanges. |
923 self startCollectChanges. |
924 |
924 |
925 self createVersionMethodFor:metaClass. |
925 "/ self createVersionMethodFor:metaClass. |
926 self createCopyrightMethodFor:metaClass. |
926 self createCopyrightMethodFor:metaClass. |
927 self createDocumentationMethodFor:metaClass. |
927 self createDocumentationMethodFor:metaClass. |
928 self createExamplesMethodFor:metaClass. |
928 self createExamplesMethodFor:metaClass. |
929 "/ self createInitialHistoryMethodFor:metaClass. |
929 "/ self createInitialHistoryMethodFor:metaClass. |
930 |
930 |
2244 inCategory:'change & update'. |
2244 inCategory:'change & update'. |
2245 ] |
2245 ] |
2246 ! |
2246 ! |
2247 |
2247 |
2248 createVersionMethodFor:aClass |
2248 createVersionMethodFor:aClass |
|
2249 <resource: #obsolete> |
2249 "add version method containing RCS template |
2250 "add version method containing RCS template |
2250 but only if not already present and its not a private class." |
2251 but only if not already present and its not a private class." |
2251 |
2252 |
2252 |code| |
2253 |code| |
|
2254 |
|
2255 self obsoleteMethodWarning. |
2253 |
2256 |
2254 aClass isPrivate ifFalse:[ |
2257 aClass isPrivate ifFalse:[ |
2255 (aClass includesSelector:#version) ifFalse:[ |
2258 (aClass includesSelector:#version) ifFalse:[ |
2256 "/ ugly; should ask the class for that |
2259 "/ ugly; should ask the class for that |
2257 aClass isJavaScriptClass ifTrue:[ |
2260 aClass isJavaScriptClass ifTrue:[ |
2768 ! ! |
2771 ! ! |
2769 |
2772 |
2770 !CodeGeneratorTool class methodsFor:'documentation'! |
2773 !CodeGeneratorTool class methodsFor:'documentation'! |
2771 |
2774 |
2772 version |
2775 version |
2773 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.62 2009-09-23 15:13:08 cg Exp $' |
2776 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.63 2009-10-07 12:11:11 fm Exp $' |
|
2777 ! |
|
2778 |
|
2779 version_CVS |
|
2780 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.63 2009-10-07 12:11:11 fm Exp $' |
2774 ! ! |
2781 ! ! |