equal
deleted
inserted
replaced
482 text notNil ifTrue:[^ text]. |
482 text notNil ifTrue:[^ text]. |
483 ]. |
483 ]. |
484 |
484 |
485 ^ nil |
485 ^ nil |
486 |
486 |
487 "Modified: 31.8.1995 / 20:38:00 / claus" |
487 "Modified: / 31.8.1995 / 20:38:00 / claus" |
488 "Modified: 5.6.1996 / 14:18:23 / cg" |
488 "Modified: / 29.10.1997 / 22:31:47 / cg" |
489 ! |
489 ! |
490 |
490 |
491 hideIfPointerLeft:aView |
491 hideIfPointerLeft:aView |
492 "hide help, if the pointer is not in aView" |
492 "hide help, if the pointer is not in aView" |
493 |
493 |
582 text := self helpTextFor:aView atX:x y:y. |
582 text := self helpTextFor:aView atX:x y:y. |
583 lastHelpText = text ifTrue:[ |
583 lastHelpText = text ifTrue:[ |
584 ^ self |
584 ^ self |
585 ]. |
585 ]. |
586 |
586 |
|
587 "/ give the views application a chance |
|
588 "/ to decide where to show the help text |
|
589 "/ (i.e. in its own information area) |
|
590 "/ nil is also passed down, to give it a chance |
|
591 "/ to clean its infoDisplay. |
|
592 |
|
593 top := aView topView. |
|
594 (app := aView application) notNil ifTrue:[ |
|
595 (app showHelp:text for:aView) ifTrue:[ |
|
596 lastHelpText := text. |
|
597 ^ self |
|
598 ] |
|
599 ]. |
|
600 |
587 text notNil ifTrue:[ |
601 text notNil ifTrue:[ |
588 "/ give the views application a chance |
|
589 "/ to decide where to show the help text |
|
590 "/ (i.e. in its own information area) |
|
591 |
|
592 top := aView topView. |
|
593 (app := aView application) notNil ifTrue:[ |
|
594 (app showHelp:text for:aView) ifTrue:[ |
|
595 lastHelpText := text. |
|
596 ^ self |
|
597 ] |
|
598 ]. |
|
599 |
|
600 (showItNow not and:[DelayTime > 0]) ifTrue:[ |
602 (showItNow not and:[DelayTime > 0]) ifTrue:[ |
601 self stopHelpDisplayProcess. |
603 self stopHelpDisplayProcess. |
602 showProcess := [ |
604 showProcess := [ |
603 Delay waitForSeconds:DelayTime. |
605 Delay waitForSeconds:DelayTime. |
604 showProcess := nil. |
606 showProcess := nil. |
617 initiateHelpFor:self atX:x y:y |
619 initiateHelpFor:self atX:x y:y |
618 ] |
620 ] |
619 ] |
621 ] |
620 " |
622 " |
621 |
623 |
622 "Created: 28.6.1997 / 14:45:41 / cg" |
624 "Created: / 28.6.1997 / 14:45:41 / cg" |
623 "Modified: 28.6.1997 / 14:49:05 / cg" |
625 "Modified: / 29.10.1997 / 22:34:59 / cg" |
624 ! |
626 ! |
625 |
627 |
626 showHelp:aHelpText for:view |
628 showHelp:aHelpText for:view |
627 "show the help text for aView" |
629 "show the help text for aView" |
628 |
630 |
740 ! ! |
742 ! ! |
741 |
743 |
742 !ActiveHelp class methodsFor:'documentation'! |
744 !ActiveHelp class methodsFor:'documentation'! |
743 |
745 |
744 version |
746 version |
745 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.30 1997-10-29 16:10:29 cg Exp $' |
747 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.31 1997-10-29 21:35:26 cg Exp $' |
746 ! ! |
748 ! ! |
747 ActiveHelp initialize! |
749 ActiveHelp initialize! |