equal
deleted
inserted
replaced
352 |
352 |
353 "/ first, ask the master (a hook for expecco, to provide different help texts) |
353 "/ first, ask the master (a hook for expecco, to provide different help texts) |
354 masterApplication notNil ifTrue:[ |
354 masterApplication notNil ifTrue:[ |
355 helpText := masterApplication basicFlyByHelpTextForKey:aKey. |
355 helpText := masterApplication basicFlyByHelpTextForKey:aKey. |
356 helpText notNil ifTrue:[^ helpText ]. |
356 helpText notNil ifTrue:[^ helpText ]. |
357 ]. |
357 |
358 |
358 "/ then, ask the master about the spec |
359 "/ then, ask the spec |
359 helpText := masterApplication basicHelpTextFromSpecification:specification forKey:aKey. |
360 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
360 ] ifFalse:[ |
|
361 "/ then, ask the spec |
|
362 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
|
363 ]. |
361 helpText notNil ifTrue:[^ helpText ]. |
364 helpText notNil ifTrue:[^ helpText ]. |
362 |
365 |
363 "/ finally, ask myself... |
366 "/ finally, ask myself... |
364 ^ super basicFlyByHelpTextForKey:aKey. |
367 ^ super basicFlyByHelpTextForKey:aKey. |
365 ! |
368 ! |
372 |
375 |
373 "/ first, ask the master (a hook for expecco, to provide different help texts) |
376 "/ first, ask the master (a hook for expecco, to provide different help texts) |
374 masterApplication notNil ifTrue:[ |
377 masterApplication notNil ifTrue:[ |
375 helpText := masterApplication basicHelpTextForKey:aKey. |
378 helpText := masterApplication basicHelpTextForKey:aKey. |
376 helpText notNil ifTrue:[^ helpText ]. |
379 helpText notNil ifTrue:[^ helpText ]. |
377 ]. |
380 |
378 |
381 "/ then, ask the master about the spec |
379 "/ then, ask the spec |
382 helpText := masterApplication basicHelpTextFromSpecification:specification forKey:aKey. |
380 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
383 ] ifFalse:[ |
|
384 "/ then, ask the spec |
|
385 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
|
386 ]. |
381 helpText notNil ifTrue:[^ helpText ]. |
387 helpText notNil ifTrue:[^ helpText ]. |
382 |
388 |
383 "/ finally, ask myself... |
389 "/ finally, ask myself... |
384 ^ super basicHelpTextForKey:aKey. |
390 ^ super basicHelpTextForKey:aKey. |
385 ! ! |
391 ! ! |