342 "Modified: / 16.7.1998 / 19:25:59 / cg" |
342 "Modified: / 16.7.1998 / 19:25:59 / cg" |
343 ! ! |
343 ! ! |
344 |
344 |
345 !UISpecificationTool methodsFor:'help'! |
345 !UISpecificationTool methodsFor:'help'! |
346 |
346 |
|
347 basicFlyByHelpTextForKey:aKey |
|
348 "activeHelp interface: return some help text for a key. |
|
349 Redefined to ask the current components Spec first." |
|
350 |
|
351 |helpText| |
|
352 |
|
353 "/ first, ask the master (a hook for expecco, to provide different help texts) |
|
354 masterApplication notNil ifTrue:[ |
|
355 helpText := masterApplication basicFlyByHelpTextForKey:aKey. |
|
356 helpText notNil ifTrue:[^ helpText ]. |
|
357 ]. |
|
358 |
|
359 "/ then, ask the spec |
|
360 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
|
361 helpText notNil ifTrue:[^ helpText ]. |
|
362 |
|
363 "/ finally, ask myself... |
|
364 ^ super basicFlyByHelpTextForKey:aKey. |
|
365 ! |
|
366 |
347 basicHelpTextForKey:aKey |
367 basicHelpTextForKey:aKey |
348 "activeHelp interface: return some help text for a key. |
368 "activeHelp interface: return some help text for a key. |
349 Redefined to ask the current components Spec first." |
369 Redefined to ask the current components Spec first." |
350 |
370 |
351 |helpText| |
371 |helpText| |
352 |
372 |
353 "/ first, ask the spec |
373 "/ first, ask the master (a hook for expecco, to provide different help texts) |
|
374 masterApplication notNil ifTrue:[ |
|
375 helpText := masterApplication basicHelpTextForKey:aKey. |
|
376 helpText notNil ifTrue:[^ helpText ]. |
|
377 ]. |
|
378 |
|
379 "/ then, ask the spec |
354 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
380 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
355 "/ DEBUG: helpText isNil ifTrue:[^ 'No help for key: ', aKey ]. |
381 helpText notNil ifTrue:[^ helpText ]. |
356 |
382 |
357 helpText isNil ifTrue:[ |
383 "/ finally, ask myself... |
358 helpText := super basicHelpTextForKey:aKey. |
384 ^ super basicHelpTextForKey:aKey. |
359 ]. |
|
360 "/ DEBUG: ^ aKey , ': ' , helpText |
|
361 ^ helpText |
|
362 ! ! |
385 ! ! |
363 |
386 |
364 !UISpecificationTool methodsFor:'initialization'! |
387 !UISpecificationTool methodsFor:'initialization'! |
365 |
388 |
366 initialize |
389 initialize |