equal
deleted
inserted
replaced
663 <resource: #help> |
663 <resource: #help> |
664 |
664 |
665 |text bindings nextSpec prevSpec| |
665 |text bindings nextSpec prevSpec| |
666 |
666 |
667 text := super helpTextForKey:aKey. |
667 text := super helpTextForKey:aKey. |
668 |
668 text isNil ifTrue:[^ nil]. |
|
669 |
669 nextSpec := self nextEnabledPageSpec. |
670 nextSpec := self nextEnabledPageSpec. |
670 prevSpec := self previousEnabledPageSpec. |
671 prevSpec := self previousEnabledPageSpec. |
671 |
672 |
672 bindings := Dictionary new. |
673 bindings := Dictionary new. |
673 bindings |
674 bindings |
677 at:#'nextPageInfo' |
678 at:#'nextPageInfo' |
678 put:(nextSpec notNil ifTrue:[ '"',nextSpec pageTitle,'"' ] ifFalse:['']). |
679 put:(nextSpec notNil ifTrue:[ '"',nextSpec pageTitle,'"' ] ifFalse:['']). |
679 |
680 |
680 ^ self resources string:text withArguments:bindings. |
681 ^ self resources string:text withArguments:bindings. |
681 |
682 |
682 "Modified: / 09-08-2018 / 14:57:17 / Claus Gittinger" |
683 "Modified: / 23-08-2018 / 21:02:45 / Claus Gittinger" |
683 ! ! |
684 ! ! |
684 |
685 |
685 !AssistantApplication methodsFor:'initialization & release'! |
686 !AssistantApplication methodsFor:'initialization & release'! |
686 |
687 |
687 postBuildWith:aBuilder |
688 postBuildWith:aBuilder |