equal
deleted
inserted
replaced
198 ]. |
198 ]. |
199 (aView respondsTo:#flyByHelpText) ifTrue:[ |
199 (aView respondsTo:#flyByHelpText) ifTrue:[ |
200 text := aView flyByHelpText. |
200 text := aView flyByHelpText. |
201 text notNil ifTrue:[^ text]. |
201 text notNil ifTrue:[^ text]. |
202 ]. |
202 ]. |
|
203 "/ to be enabled in next release... |
|
204 "/ (aView superView notNil |
|
205 "/ and:[aView superView respondsTo:#flyByHelpTextFor:]) ifTrue:[ |
|
206 "/ text := aView superView flyByHelpTextFor:aView. |
|
207 "/ text notNil ifTrue:[^ text]. |
|
208 "/ ]. |
203 (aView respondsTo:#helpKey) ifTrue:[ |
209 (aView respondsTo:#helpKey) ifTrue:[ |
204 key := aView helpKey. |
210 key := aView helpKey. |
205 key notNil ifTrue:[ |
211 key notNil ifTrue:[ |
206 app := aView application. |
212 app := aView application. |
207 app isNil ifTrue:[ |
213 app isNil ifTrue:[ |