equal
deleted
inserted
replaced
7203 (key notNil and:[(app := menuPanel application) notNil]) ifTrue:[ |
7203 (key notNil and:[(app := menuPanel application) notNil]) ifTrue:[ |
7204 text := app helpTextForKey:key. |
7204 text := app helpTextForKey:key. |
7205 text notNil ifTrue:[^ text]. |
7205 text notNil ifTrue:[^ text]. |
7206 key == key1 ifTrue:[ |
7206 key == key1 ifTrue:[ |
7207 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ |
7207 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ |
7208 Logger warning:('no help for key: "%1" in spec of "%2"' bindWith:key with:app class name). |
7208 ('no help for key: "%1" in spec of "%2"' bindWith:key with:app class name) infoPrintCR. |
7209 ]. |
7209 ]. |
7210 ]. |
7210 ]. |
7211 ]. |
7211 ]. |
7212 ]. |
7212 ]. |
7213 |
7213 |
7230 ^ rawLabel |
7230 ^ rawLabel |
7231 ]. |
7231 ]. |
7232 ]. |
7232 ]. |
7233 ^ text |
7233 ^ text |
7234 |
7234 |
7235 "Modified: / 09-06-2018 / 10:50:49 / Claus Gittinger" |
7235 "Modified: / 11-06-2018 / 10:26:10 / Claus Gittinger" |
7236 ! |
7236 ! |
7237 |
7237 |
7238 activeHelpText:aText |
7238 activeHelpText:aText |
7239 "set the active helpText" |
7239 "set the active helpText" |
7240 |
7240 |