equal
deleted
inserted
replaced
1018 HistoryManager createInitialHistoryMethodIn:aClass |
1018 HistoryManager createInitialHistoryMethodIn:aClass |
1019 ]. |
1019 ]. |
1020 ]. |
1020 ]. |
1021 ! |
1021 ! |
1022 |
1022 |
|
1023 createInstanceCreationMethodWithSetupFor:selector category:category in:aMetaClass |
|
1024 "add an inst-creation method" |
|
1025 |
|
1026 |template| |
|
1027 |
|
1028 (aMetaClass includesSelector:selector) ifFalse:[ |
|
1029 template := Parser methodSpecificationForSelector:selector. |
|
1030 self |
|
1031 compile: |
|
1032 template , ' |
|
1033 ^ self new ' , template , ' |
|
1034 ' |
|
1035 forClass:aMetaClass |
|
1036 inCategory:category. |
|
1037 ]. |
|
1038 ! |
|
1039 |
1023 createMultiSetterMethodFor:aCollectionOfVarNames in:aClass |
1040 createMultiSetterMethodFor:aCollectionOfVarNames in:aClass |
1024 "create a multi-setter method for instvars." |
1041 "create a multi-setter method for instvars." |
1025 |
1042 |
1026 |source| |
1043 |source| |
1027 |
1044 |
1157 ! ! |
1174 ! ! |
1158 |
1175 |
1159 !CodeGeneratorTool class methodsFor:'documentation'! |
1176 !CodeGeneratorTool class methodsFor:'documentation'! |
1160 |
1177 |
1161 version |
1178 version |
1162 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.10 2003-01-16 10:15:16 cg Exp $' |
1179 ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.11 2003-01-31 14:24:25 cg Exp $' |
1163 ! ! |
1180 ! ! |