equal
deleted
inserted
replaced
489 text notNil ifTrue:[^ text]. |
489 text notNil ifTrue:[^ text]. |
490 ]. |
490 ]. |
491 ]. |
491 ]. |
492 (aModel respondsTo:#helpTextFor:) ifTrue:[ |
492 (aModel respondsTo:#helpTextFor:) ifTrue:[ |
493 text := aModel helpTextFor:aView. |
493 text := aModel helpTextFor:aView. |
494 text notNil ifTrue:[ |
494 "/ cg: I dont understand this... |
495 text2 := self helpTextFromView:aView at:aPointOrNil. |
495 "/ text notNil ifTrue:[ |
496 text2 notNil ifTrue:[ ^ text2 ]. |
496 "/ text2 := self helpTextFromView:aView at:aPointOrNil. |
497 ]. |
497 "/ text2 notNil ifTrue:[ ^ text2 ]. |
|
498 "/ ]. |
498 ]. |
499 ]. |
499 ^ text |
500 ^ text |
500 ! |
501 ! |
501 |
502 |
502 helpTextFromView:aView at:aPointOrNil |
503 helpTextFromView:aView at:aPointOrNil |
718 ! ! |
719 ! ! |
719 |
720 |
720 !ActiveHelp class methodsFor:'documentation'! |
721 !ActiveHelp class methodsFor:'documentation'! |
721 |
722 |
722 version |
723 version |
723 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.61 2008-05-19 19:16:53 cg Exp $' |
724 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.62 2009-05-21 14:35:42 cg Exp $' |
724 ! ! |
725 ! ! |
725 |
726 |
726 ActiveHelp initialize! |
727 ActiveHelp initialize! |