equal
deleted
inserted
replaced
17 |
17 |
18 EventListener subclass:#ActiveHelp |
18 EventListener subclass:#ActiveHelp |
19 instanceVariableNames:'lastHelpText listeningForAll applicationsOrTopViewsWithHelp |
19 instanceVariableNames:'lastHelpText listeningForAll applicationsOrTopViewsWithHelp |
20 lastHelpWidget lastPointerPosition pointerPositionAtShowTime |
20 lastHelpWidget lastPointerPosition pointerPositionAtShowTime |
21 suspended' |
21 suspended' |
22 classVariableNames:'Debugging DebuggingEvents DebuggingHelpText Suspended' |
22 classVariableNames:'Debugging DebuggingEvents DebuggingHelpText Suspended DoHelpKey' |
23 poolDictionaries:'' |
23 poolDictionaries:'' |
24 category:'Interface-Help' |
24 category:'Interface-Help' |
25 ! |
25 ! |
26 |
26 |
27 ActiveHelp class instanceVariableNames:'DelayTime ShowTime TheOneAndOnlyHelpListener' |
27 ActiveHelp class instanceVariableNames:'DelayTime ShowTime TheOneAndOnlyHelpListener' |
545 "unconditionally hide the help view" |
545 "unconditionally hide the help view" |
546 |
546 |
547 Debugging ifTrue:[ |
547 Debugging ifTrue:[ |
548 ('%1: key press: %2' bindWith:self className with:key) infoPrintCR |
548 ('%1: key press: %2' bindWith:self className with:key) infoPrintCR |
549 ]. |
549 ]. |
550 key == #Help ifTrue:[ |
550 DoHelpKey == true ifTrue:[ |
551 self initiateHelpFor:view at:(x @ y). |
551 key == #Help ifTrue:[ |
552 ^ true. |
552 self initiateHelpFor:view at:(x @ y). |
|
553 ^ true. |
|
554 ]. |
553 ]. |
555 ]. |
554 self hideHelpIgnoringErrors. |
556 self hideHelpIgnoringErrors. |
555 ^ false |
557 ^ false |
556 |
558 |
557 "Modified: / 27-04-1996 / 15:09:57 / cg" |
559 "Modified: / 27-04-1996 / 15:09:57 / cg" |
563 |
565 |
564 Debugging ifTrue:[ |
566 Debugging ifTrue:[ |
565 ('%1: key release: %2' bindWith:self className with:key) infoPrintCR |
567 ('%1: key release: %2' bindWith:self className with:key) infoPrintCR |
566 ]. |
568 ]. |
567 |
569 |
568 "/ key == #Help ifTrue:[ |
|
569 "/ ]. |
|
570 self hideHelpIgnoringErrors. |
570 self hideHelpIgnoringErrors. |
571 ^ false |
571 ^ false |
572 |
572 |
573 "Created: / 02-08-2018 / 16:16:19 / Claus Gittinger" |
573 "Created: / 02-08-2018 / 16:16:19 / Claus Gittinger" |
574 "Modified: / 28-06-2019 / 08:40:17 / Claus Gittinger" |
574 "Modified: / 28-06-2019 / 08:40:17 / Claus Gittinger" |