equal
deleted
inserted
replaced
2676 "/ kludge to allow for dynamic translation by the application itself, avoiding the key translation below. |
2676 "/ kludge to allow for dynamic translation by the application itself, avoiding the key translation below. |
2677 helpText isBlock ifTrue:[ |
2677 helpText isBlock ifTrue:[ |
2678 ^ helpText value. |
2678 ^ helpText value. |
2679 ]. |
2679 ]. |
2680 |
2680 |
2681 (helpText notNil and:[self window sensor ctrlDown]) ifTrue:[ |
2681 (helpText notNil and:[self window device ctrlDown]) ifTrue:[ |
2682 ^ 'Helpkey: ',aKey printString. |
2682 ^ 'Helpkey: ',aKey printString. |
2683 ]. |
2683 ]. |
2684 |
2684 |
2685 "get the translation" |
2685 "get the translation" |
2686 translatedHelpText := self translateString:helpText. |
2686 translatedHelpText := self translateString:helpText. |
2693 ]. |
2693 ]. |
2694 ^ translatedHelpText withCRs. |
2694 ^ translatedHelpText withCRs. |
2695 |
2695 |
2696 "Modified: / 27-01-2012 / 14:33:54 / cg" |
2696 "Modified: / 27-01-2012 / 14:33:54 / cg" |
2697 "Modified (comment): / 09-01-2018 / 17:36:30 / stefan" |
2697 "Modified (comment): / 09-01-2018 / 17:36:30 / stefan" |
2698 "Modified: / 08-06-2018 / 13:02:01 / Claus Gittinger" |
2698 "Modified: / 15-06-2018 / 11:13:37 / Claus Gittinger" |
2699 ! |
2699 ! |
2700 |
2700 |
2701 helpTextForKey:aKey row:aRowNr |
2701 helpTextForKey:aKey row:aRowNr |
2702 "Special interface for DataSet - get the active help text for a specific row" |
2702 "Special interface for DataSet - get the active help text for a specific row" |
2703 |
2703 |