equal
deleted
inserted
replaced
232 "/ is there any view which does not understand helpText ??? |
232 "/ is there any view which does not understand helpText ??? |
233 (aView respondsTo:#helpText) ifTrue:[ |
233 (aView respondsTo:#helpText) ifTrue:[ |
234 text := aView helpText. |
234 text := aView helpText. |
235 text notNil ifTrue:[ |
235 text notNil ifTrue:[ |
236 "/ Transcript showCR:'via helpText'; showCR:text. |
236 "/ Transcript showCR:'via helpText'; showCR:text. |
237 ^ text |
237 ^ text value |
238 ]. |
238 ]. |
239 ]. |
239 ]. |
240 "/ to be enabled in next release... |
240 "/ to be enabled in next release... |
241 "/ (aView superView notNil |
241 "/ (aView superView notNil |
242 "/ and:[aView superView respondsTo:#helpTextFor:]) ifTrue:[ |
242 "/ and:[aView superView respondsTo:#helpTextFor:]) ifTrue:[ |
279 ]. |
279 ]. |
280 ^ nil. |
280 ^ nil. |
281 |
281 |
282 "Modified: / 09-01-2018 / 17:38:42 / stefan" |
282 "Modified: / 09-01-2018 / 17:38:42 / stefan" |
283 "Modified (format): / 07-06-2018 / 09:51:41 / sr" |
283 "Modified (format): / 07-06-2018 / 09:51:41 / sr" |
284 "Modified: / 07-09-2018 / 12:32:04 / Claus Gittinger" |
284 "Modified: / 07-02-2019 / 19:18:39 / Claus Gittinger" |
285 ! ! |
285 ! ! |
286 |
286 |
287 !FlyByHelp methodsFor:'queries'! |
287 !FlyByHelp methodsFor:'queries'! |
288 |
288 |
289 currentlyShownView |
289 currentlyShownView |