1039 ! ! |
1039 ! ! |
1040 |
1040 |
1041 !ProjectDefinition class methodsFor:'public update description'! |
1041 !ProjectDefinition class methodsFor:'public update description'! |
1042 |
1042 |
1043 compileDescriptionMethods |
1043 compileDescriptionMethods |
1044 self compileClassNames. |
1044 self forEachMethodsCodeToCompileDo:[:code :category | |
1045 self compileExtensionMethodNames. |
1045 self theMetaclass |
|
1046 compile: code |
|
1047 classified: category. |
|
1048 ]. |
1046 |
1049 |
1047 " |
1050 " |
1048 DapasXProject compileDescriptionMethods |
1051 DapasXProject compileDescriptionMethods |
1049 DapasX_Datenbasis compileDescriptionMethods |
1052 DapasX_Datenbasis compileDescriptionMethods |
1050 bosch_dapasx_interactiver_editor_Definition compileDescriptionMethods |
1053 bosch_dapasx_interactiver_editor_Definition compileDescriptionMethods |
1051 " |
1054 " |
1052 |
1055 |
1053 "Created: / 09-08-2006 / 18:00:31 / fm" |
1056 "Created: / 09-08-2006 / 18:00:31 / fm" |
|
1057 "Modified: / 10-08-2006 / 16:37:57 / cg" |
1054 ! ! |
1058 ! ! |
1055 |
1059 |
1056 !ProjectDefinition class methodsFor:'sanity checks'! |
1060 !ProjectDefinition class methodsFor:'sanity checks'! |
1057 |
1061 |
1058 searchForInconsistencies |
1062 searchForInconsistencies |
1079 self searchForNeverCompiledSuperclasses |
1083 self searchForNeverCompiledSuperclasses |
1080 DapasX_Datenbasis searchForNeverCompiledSuperclasses |
1084 DapasX_Datenbasis searchForNeverCompiledSuperclasses |
1081 " |
1085 " |
1082 |
1086 |
1083 "Created: / 09-08-2006 / 16:31:54 / fm" |
1087 "Created: / 09-08-2006 / 16:31:54 / fm" |
|
1088 ! ! |
|
1089 |
|
1090 !ProjectDefinition class methodsFor:'testing'! |
|
1091 |
|
1092 isProjectDefinition |
|
1093 ^ self ~~ ProjectDefinition |
|
1094 |
|
1095 "Created: / 10-08-2006 / 16:24:02 / cg" |
1084 ! ! |
1096 ! ! |
1085 |
1097 |
1086 !ProjectDefinition class methodsFor:'update description'! |
1098 !ProjectDefinition class methodsFor:'update description'! |
1087 |
1099 |
1088 autoloadedClassNamesGeneratedCodeToCompile |
1100 autoloadedClassNamesGeneratedCodeToCompile |
1163 |
1175 |
1164 "Created: / 08-08-2006 / 15:00:17 / fm" |
1176 "Created: / 08-08-2006 / 15:00:17 / fm" |
1165 "Modified: / 08-08-2006 / 19:24:34 / fm" |
1177 "Modified: / 08-08-2006 / 19:24:34 / fm" |
1166 ! |
1178 ! |
1167 |
1179 |
1168 compileClassNames |
|
1169 self theMetaclass |
|
1170 compile: self autoloadedClassNamesGeneratedCodeToCompile |
|
1171 classified: 'project description'. |
|
1172 |
|
1173 self theMetaclass |
|
1174 compile: self classNamesGeneratedCodeToCompile |
|
1175 classified: 'project description'. |
|
1176 |
|
1177 (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[ |
|
1178 self theMetaclass |
|
1179 compile: 'excluded_classNames\^ #()' withCRs |
|
1180 classified: 'project description'. |
|
1181 ]. |
|
1182 |
|
1183 " |
|
1184 bosch_dapasx_interactiver_editor_Definition compileClassNames |
|
1185 |
|
1186 DapasXProject compileClassNames |
|
1187 DapasX_Datenbasis compileClassNames |
|
1188 |
|
1189 DapasXProject classNamesGeneratedCodeToCompile |
|
1190 DapasX_Datenbasis classNamesGeneratedCodeToCompile |
|
1191 |
|
1192 " |
|
1193 |
|
1194 "Modified: / 08-08-2006 / 15:58:21 / fm" |
|
1195 ! |
|
1196 |
|
1197 compileDescription |
|
1198 |
|
1199 self theMetaclass compile: 'description ^''bla bla''' |
|
1200 classified: 'project description' |
|
1201 |
|
1202 " |
|
1203 DapasXProject compileClassNames |
|
1204 DapasX_Datenbasis compileClassNames |
|
1205 |
|
1206 DapasXProject classNamesGeneratedCodeToCompile |
|
1207 DapasX_Datenbasis classNamesGeneratedCodeToCompile |
|
1208 |
|
1209 " |
|
1210 |
|
1211 "Created: / 09-08-2006 / 18:31:48 / fm" |
|
1212 ! |
|
1213 |
|
1214 compileExtensionMethodNames |
|
1215 |
|
1216 self theMetaclass compile: self extensionMethodNamesGeneratedCodeToCompile |
|
1217 classified: 'project description' |
|
1218 |
|
1219 " |
|
1220 DapasXProject compileExtensionMethodNames |
|
1221 DapasX_Datenbasis compileExtensionMethodNames |
|
1222 |
|
1223 DapasXProject extensionMethodNamesGeneratedCodeToCompile |
|
1224 DapasX_Datenbasis extensionMethodNamesGeneratedCodeToCompile |
|
1225 |
|
1226 " |
|
1227 |
|
1228 "Created: / 08-08-2006 / 18:53:27 / fm" |
|
1229 ! |
|
1230 |
|
1231 extensionMethodNamesGeneratedCodeToCompile |
1180 extensionMethodNamesGeneratedCodeToCompile |
1232 |extensionMethodNamesCode| |
1181 |extensionMethodNamesCode| |
1233 |
1182 |
1234 extensionMethodNamesCode := 'extensionMethodNames', String lf, '"This method has been automatically generated"'. |
1183 extensionMethodNamesCode := 'extensionMethodNames', String lf, '"This method has been automatically generated"'. |
1235 extensionMethodNamesCode := extensionMethodNamesCode, String lf, self extensionMethodNamesGeneratedString. |
1184 extensionMethodNamesCode := extensionMethodNamesCode, String lf, self extensionMethodNamesGeneratedString. |
1256 " |
1205 " |
1257 self extensionMethodNamesGeneratedString |
1206 self extensionMethodNamesGeneratedString |
1258 " |
1207 " |
1259 |
1208 |
1260 "Created: / 08-08-2006 / 18:55:04 / fm" |
1209 "Created: / 08-08-2006 / 18:55:04 / fm" |
|
1210 ! |
|
1211 |
|
1212 forEachMethodsCodeToCompileDo:aTwoArgBlock |
|
1213 aTwoArgBlock |
|
1214 value:self autoloadedClassNamesGeneratedCodeToCompile |
|
1215 value:'project description'. |
|
1216 |
|
1217 aTwoArgBlock |
|
1218 value: self classNamesGeneratedCodeToCompile |
|
1219 value: 'project description'. |
|
1220 |
|
1221 (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[ |
|
1222 aTwoArgBlock |
|
1223 value: 'excluded_classNames\^ #()' withCRs |
|
1224 value: 'project description'. |
|
1225 ]. |
|
1226 |
|
1227 aTwoArgBlock |
|
1228 value: self extensionMethodNamesGeneratedCodeToCompile |
|
1229 value: 'project description'. |
|
1230 |
|
1231 "/ aTwoArgBlock |
|
1232 "/ value: 'description ^''bla bla''' |
|
1233 "/ value: 'project description' |
|
1234 |
|
1235 "Created: / 10-08-2006 / 16:35:47 / cg" |
1261 ! |
1236 ! |
1262 |
1237 |
1263 inconsistency:message |
1238 inconsistency:message |
1264 Dialog warn:message |
1239 Dialog warn:message |
1265 |
1240 |