equal
deleted
inserted
replaced
1095 |metaClass className txt| |
1095 |metaClass className txt| |
1096 |
1096 |
1097 self startCollectChanges. |
1097 self startCollectChanges. |
1098 |
1098 |
1099 metaClass := aClass theMetaclass. |
1099 metaClass := aClass theMetaclass. |
1100 className := aClass theNonMetaClass name. |
1100 className := aClass theNonMetaclass name. |
1101 |
1101 |
1102 (metaClass includesSelector:#applicationRegistryPath) ifFalse:[ |
1102 (metaClass includesSelector:#applicationRegistryPath) ifFalse:[ |
1103 txt := self codeFor_standAloneApplicationRegistryPath. |
1103 txt := self codeFor_standAloneApplicationRegistryPath. |
1104 self |
1104 self |
1105 compile:(txt bindWith:className) |
1105 compile:(txt bindWith:className) |
1670 ]. |
1670 ]. |
1671 ! ! |
1671 ! ! |
1672 |
1672 |
1673 !CodeGeneratorTool class methodsFor:'documentation'! |
1673 !CodeGeneratorTool class methodsFor:'documentation'! |
1674 |
1674 |
|
1675 version |
|
1676 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.95 2011-08-19 00:32:02 cg Exp $' |
|
1677 ! |
|
1678 |
1675 version_CVS |
1679 version_CVS |
1676 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.94 2011-08-19 00:24:15 cg Exp $' |
1680 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.95 2011-08-19 00:32:02 cg Exp $' |
1677 ! ! |
1681 ! ! |