equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by eXept Software AG |
2 COPYRIGHT (c) 1995 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
343 "Modified: / 16.7.1998 / 19:25:59 / cg" |
341 "Modified: / 16.7.1998 / 19:25:59 / cg" |
344 ! ! |
342 ! ! |
345 |
343 |
346 !UISpecificationTool methodsFor:'help'! |
344 !UISpecificationTool methodsFor:'help'! |
347 |
345 |
348 basicFlyByHelpTextForKey:aKey |
|
349 "activeHelp interface: return some help text for a key. |
|
350 Redefined to ask the current components Spec first." |
|
351 |
|
352 |helpText| |
|
353 |
|
354 "/ first, ask the master (a hook for expecco, to provide different help texts) |
|
355 masterApplication notNil ifTrue:[ |
|
356 helpText := masterApplication basicFlyByHelpTextForKey:aKey. |
|
357 helpText notNil ifTrue:[^ helpText ]. |
|
358 |
|
359 "/ then, ask the master about the spec |
|
360 helpText := masterApplication basicHelpTextFromSpecification:specification forKey:aKey. |
|
361 ] ifFalse:[ |
|
362 "/ then, ask the spec |
|
363 helpText := (specification helpSpec) at:aKey ifAbsent:nil. |
|
364 ]. |
|
365 helpText notNil ifTrue:[^ helpText ]. |
|
366 |
|
367 "/ finally, ask myself... |
|
368 ^ super basicFlyByHelpTextForKey:aKey. |
|
369 ! |
|
370 |
|
371 basicHelpTextForKey:aKey |
346 basicHelpTextForKey:aKey |
372 "activeHelp interface: return some help text for a key. |
347 "activeHelp interface: return some help text for a key. |
373 Redefined to ask the current components Spec first." |
348 Redefined to ask the current components Spec first." |
374 |
349 |
375 |helpText| |
350 |helpText| |