equal
deleted
inserted
replaced
515 |
515 |
516 "Modified: 28.5.1996 / 20:18:28 / cg" |
516 "Modified: 28.5.1996 / 20:18:28 / cg" |
517 ! |
517 ! |
518 |
518 |
519 interestedIn:aView |
519 interestedIn:aView |
520 "am I interested in aView (either listeningForAll, |
520 "return true, if I am interested in aView (either listeningForAll, |
521 or in my list of apps" |
521 or in my list of apps)" |
522 |
522 |
523 |app| |
523 |app| |
524 |
524 |
525 listeningForAll == true ifTrue:[^ true]. |
525 listeningForAll == true ifTrue:[^ true]. |
|
526 aView isNil ifTrue:[^ false]. |
|
527 |
526 (applicationsOrTopViewsWithHelp includesIdentical:(aView topView)) ifTrue:[^ true]. |
528 (applicationsOrTopViewsWithHelp includesIdentical:(aView topView)) ifTrue:[^ true]. |
527 app := aView topView application. |
529 app := aView topView application. |
528 app notNil ifTrue:[ |
530 app notNil ifTrue:[ |
529 (applicationsOrTopViewsWithHelp includesIdentical:app) ifTrue:[^ true] |
531 (applicationsOrTopViewsWithHelp includesIdentical:app) ifTrue:[^ true] |
530 ]. |
532 ]. |
531 ^ false |
533 ^ false |
532 |
534 |
533 "Created: / 26.10.1997 / 23:28:52 / cg" |
535 "Created: / 26.10.1997 / 23:28:52 / cg" |
|
536 "Modified: / 8.8.1998 / 13:36:19 / cg" |
534 ! |
537 ! |
535 |
538 |
536 stopHelpDisplayProcess |
539 stopHelpDisplayProcess |
537 |p| |
540 |p| |
538 |
541 |
754 ! ! |
757 ! ! |
755 |
758 |
756 !ActiveHelp class methodsFor:'documentation'! |
759 !ActiveHelp class methodsFor:'documentation'! |
757 |
760 |
758 version |
761 version |
759 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.33 1998-07-31 17:41:08 cg Exp $' |
762 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.34 1998-08-08 11:36:34 cg Exp $' |
760 ! ! |
763 ! ! |
761 ActiveHelp initialize! |
764 ActiveHelp initialize! |