equal
deleted
inserted
replaced
465 domainPointOrNil := aView transformation applyInverseTo:aDevicePointOrNil. |
465 domainPointOrNil := aView transformation applyInverseTo:aDevicePointOrNil. |
466 ] ifFalse:[ |
466 ] ifFalse:[ |
467 domainPointOrNil := aDevicePointOrNil. |
467 domainPointOrNil := aDevicePointOrNil. |
468 ]. |
468 ]. |
469 |
469 |
470 "/ text := self helpTextFromView:aView at:domainPointOrNil. |
470 "/ done below |
471 "/ text notNil ifTrue:[ ^ text ]. |
471 "/ text := self helpTextFromView:aView at:domainPointOrNil. |
|
472 "/ text notNil ifTrue:[ ^ text ]. |
472 |
473 |
473 ((aView respondsTo:#application) |
474 ((aView respondsTo:#application) |
474 and:[ (app1 := aView application) notNil ]) ifTrue:[ |
475 and:[ (app1 := aView application) notNil ]) ifTrue:[ |
475 text := self helpTextFromModel:app1 view:aView at:domainPointOrNil. |
476 text := self helpTextFromModel:app1 view:aView at:domainPointOrNil. |
476 text notNil ifTrue:[ ^ text ]. |
477 text notNil ifTrue:[ ^ text ]. |
499 ] whileTrue:[ |
500 ] whileTrue:[ |
500 (model := sv model) notNil ifTrue:[ |
501 (model := sv model) notNil ifTrue:[ |
501 text := self helpTextFromModel:model view:aView at:domainPointOrNil. |
502 text := self helpTextFromModel:model view:aView at:domainPointOrNil. |
502 text notNil ifTrue:[ ^ text ]. |
503 text notNil ifTrue:[ ^ text ]. |
503 ]. |
504 ]. |
|
505 "/ maybe the topView knows something about a higher-up widget... |
|
506 text := self helpTextFromModel:topView view:sv at:domainPointOrNil. |
|
507 text notNil ifTrue:[ ^ text ]. |
|
508 |
504 text := self helpTextFromView:sv at:nil. |
509 text := self helpTextFromView:sv at:nil. |
505 text notNil ifTrue:[ ^ text ]. |
510 text notNil ifTrue:[ ^ text ]. |
506 v := sv |
511 v := sv |
507 ]. |
512 ]. |
508 |
513 |
812 "Modified: / 29.10.1997 / 15:48:34 / cg" |
817 "Modified: / 29.10.1997 / 15:48:34 / cg" |
813 ! ! |
818 ! ! |
814 |
819 |
815 !ActiveHelp class methodsFor:'documentation'! |
820 !ActiveHelp class methodsFor:'documentation'! |
816 |
821 |
|
822 version |
|
823 ^ '$Header$' |
|
824 ! |
|
825 |
817 version_CVS |
826 version_CVS |
818 ^ '$Header$' |
827 ^ '$Header$' |
819 ! ! |
828 ! ! |
820 |
829 |
821 |
830 |