509 text := self helpTextFromView:sv at:nil. |
509 text := self helpTextFromView:sv at:nil. |
510 text notNil ifTrue:[ ^ text ]. |
510 text notNil ifTrue:[ ^ text ]. |
511 v := sv |
511 v := sv |
512 ]. |
512 ]. |
513 |
513 |
514 (v notNil and:[v respondsTo:#application]) ifTrue:[ |
514 v notNil ifTrue:[ |
515 (app2 := v application) notNil ifTrue:[ |
515 ((v respondsTo:#application) and:[(app2 := v application) notNil]) ifTrue:[ |
516 (app2 ~~ app1) ifTrue:[ |
516 (app2 ~~ app1) ifTrue:[ |
517 text := self helpTextFromModel:app2 view:aView at:domainPointOrNil. |
517 text := self helpTextFromModel:app2 view:aView at:domainPointOrNil. |
518 text notNil ifTrue:[ ^ text ]. |
518 text notNil ifTrue:[ ^ text ]. |
519 ] |
519 ] |
520 ] |
520 ]. |
521 ]. |
521 ((v respondsTo:#model) and:[(model := v model) notNil]) ifTrue:[ |
522 (v notNil and:[v respondsTo:#model]) ifTrue:[ |
|
523 (model := v model) notNil ifTrue:[ |
|
524 text := self helpTextFromModel:model view:aView at:domainPointOrNil. |
522 text := self helpTextFromModel:model view:aView at:domainPointOrNil. |
525 text notNil ifTrue:[ ^ text ]. |
523 text notNil ifTrue:[ ^ text ]. |
526 ] |
524 ]. |
527 ]. |
525 ]. |
528 ^ nil |
526 ^ nil |
529 |
527 |
530 "Modified: / 31.8.1995 / 20:38:00 / claus" |
528 "Modified: / 31-08-1995 / 20:38:00 / claus" |
531 "Modified: / 28.7.1998 / 01:47:27 / cg" |
529 "Modified: / 28-07-1998 / 01:47:27 / cg" |
|
530 "Modified: / 09-01-2018 / 16:46:37 / stefan" |
532 ! |
531 ! |
533 |
532 |
534 helpTextFromModel:aModelOrTopView view:aView at:aPointOrNil |
533 helpTextFromModel:aModelOrTopView view:aView at:aPointOrNil |
535 "helper: ask aModel for its helpText." |
534 "helper: ask aModel for its helpText." |
536 |
535 |