FlyByHelp.st
changeset 4385 0e7f3f4536d8
parent 4382 9c92ffafbd06
child 4387 d4bd95e7f814
--- 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
             ].