--- a/FlyByHelp.st Sun Oct 20 12:00:36 2019 +0200
+++ b/FlyByHelp.st Sun Oct 20 13:14:15 2019 +0200
@@ -341,7 +341,7 @@
<resource: #keyboard (#Escape #Control #Shift)>
- |prevView text focusView menuView|
+ |prevView text focusView debuggedView|
"/ DebuggingEvents := true
"/ DebuggingEvents := false
@@ -372,19 +372,23 @@
focusView := aView windowGroup focusView.
(focusView notNil and:[focusView isMenu]) ifTrue:[
- menuView := focusView
+ debuggedView := focusView
] ifFalse:[
- menuView := nil
+ debuggedView := nil.
+ ].
+ "/ Transcript showCR:aView.
+ (aView isKindOf:NoteBookView) ifTrue:[
+ debuggedView := aView
].
(currentHelpView notNil
or:[aView isMenu
- or:[menuView notNil
+ or:[debuggedView notNil
]]) ifTrue:[
Smalltalk isStandAloneApp ifFalse:[
(#(#'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
aView device shiftDown ifTrue:[
- self openDeveloperMenuFor:(menuView ? aView) at:x@y.
+ self openDeveloperMenuFor:(debuggedView ? aView) at:x@y.
^ false
].
"/ reopen showing the key
@@ -394,7 +398,7 @@
].
(#(#'Shift' #'Shift_L' #'Shift_R') includes:key) ifTrue:[
aView device ctrlDown ifTrue:[
- self openDeveloperMenuFor:(menuView ? aView) at:x@y
+ self openDeveloperMenuFor:(debuggedView ? aView) at:x@y
].
^ false
].