equal
deleted
inserted
replaced
262 ! ! |
262 ! ! |
263 |
263 |
264 !MetacelloProjectRegistration methodsFor:'lookup'! |
264 !MetacelloProjectRegistration methodsFor:'lookup'! |
265 |
265 |
266 lookupBaselineSpec |
266 lookupBaselineSpec |
267 baselineProjectSpec ifNotNil: [ :spec | ^ spec ]. |
267 |
|
268 baselineProjectSpec ifNotNil: [ ^ baselineProjectSpec ]. |
268 ^ configurationProjectSpec |
269 ^ configurationProjectSpec |
269 ! |
270 ! |
270 |
271 |
271 lookupConfigurationSpec |
272 lookupConfigurationSpec |
272 configurationProjectSpec ifNotNil: [ :spec | ^ spec ]. |
273 configurationProjectSpec ifNotNil: [ ^ configurationProjectSpec ]. |
273 ^ baselineProjectSpec |
274 ^ baselineProjectSpec |
274 ! |
275 ! |
275 |
276 |
276 lookupSpec: aProjectSpec |
277 lookupSpec: aProjectSpec |
277 self configurationProjectSpec |
278 | spec | |
278 ifNotNil: [ :spec | |
279 |
|
280 (spec := self configurationProjectSpec) |
|
281 ifNotNil: [ |
279 spec className = aProjectSpec className |
282 spec className = aProjectSpec className |
280 ifTrue: [ ^ spec ] ]. |
283 ifTrue: [ ^ spec ] ]. |
281 self baselineProjectSpec |
284 (spec := self baselineProjectSpec) |
282 ifNotNil: [ :spec | |
285 ifNotNil: [ |
283 spec className = aProjectSpec className |
286 spec className = aProjectSpec className |
284 ifTrue: [ ^ spec ] ]. |
287 ifTrue: [ ^ spec ] ]. |
285 ^ nil |
288 ^ nil |
286 ! ! |
289 ! ! |
287 |
290 |