equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
673 "return true, if I am interested in aView (either listeningForAll, |
671 "return true, if I am interested in aView (either listeningForAll, |
674 or in my list of apps)" |
672 or in my list of apps)" |
675 |
673 |
676 |app aViewsTopView device deviceFocusView| |
674 |app aViewsTopView device deviceFocusView| |
677 |
675 |
|
676 "/ Debugging := true |
|
677 "/ Debugging := false |
678 aView isNil ifTrue:[ |
678 aView isNil ifTrue:[ |
679 Debugging ifTrue:['nil view' infoPrintCR]. |
679 Debugging ifTrue:['nil view' infoPrintCR]. |
680 ^ false |
680 ^ false |
681 ]. |
681 ]. |
682 |
682 |
686 "/ ]. |
686 "/ ]. |
687 |
687 |
688 aViewsTopView := aView topView. |
688 aViewsTopView := aView topView. |
689 |
689 |
690 UserPreferences current onlyShowTooltipsForActiveWindow ifTrue:[ |
690 UserPreferences current onlyShowTooltipsForActiveWindow ifTrue:[ |
|
691 Debugging ifTrue:[ |
|
692 'TopView:' infoPrint. aViewsTopView infoPrint. |
|
693 ' focus:' infoPrint. aViewsTopView graphicsDevice focusView infoPrint. |
|
694 ' active:' infoPrint. aViewsTopView isActive infoPrintCR. |
|
695 ]. |
691 aViewsTopView isActive ifFalse:[ |
696 aViewsTopView isActive ifFalse:[ |
692 Debugging ifTrue:[ |
697 Debugging ifTrue:[ |
693 |graphicsDevice focusVw| |
698 |graphicsDevice focusVw| |
694 |
699 |
695 'topview inactive' infoPrintCR. |
700 'topview inactive' infoPrintCR. |
732 Debugging ifTrue:['not in list of apps I am interested in' infoPrintCR]. |
737 Debugging ifTrue:['not in list of apps I am interested in' infoPrintCR]. |
733 ^ false |
738 ^ false |
734 |
739 |
735 "Created: / 26-10-1997 / 23:28:52 / cg" |
740 "Created: / 26-10-1997 / 23:28:52 / cg" |
736 "Modified: / 08-08-1998 / 13:36:19 / cg" |
741 "Modified: / 08-08-1998 / 13:36:19 / cg" |
737 "Modified: / 19-06-2018 / 12:58:39 / Claus Gittinger" |
742 "Modified (format): / 11-08-2018 / 08:15:40 / Claus Gittinger" |
738 ! |
743 ! |
739 |
744 |
740 targetViewInitiatesHelpViaSensor |
745 targetViewInitiatesHelpViaSensor |
741 "true if the target view is asked to show the help via the sensor; |
746 "true if the target view is asked to show the help via the sensor; |
742 false, if I do it myself synchronously." |
747 false, if I do it myself synchronously." |