nanoPG: takeover keypress only when text view has focus

1 files changed, 5 insertions, 1 deletions

diff --git a/ide/nanoPG.ml b/ide/nanoPG.ml
index 9c4f40f7d2..d4b32b9ce2 100644
--- a/ide/nanoPG.ml
+++ b/ide/nanoPG.ml
@@ -294,6 +294,10 @@ let init w nb ags =
   let status = ref empty in
   let reset () = eprintf "reset\n%!"; cur := pg in
   ignore(w#event#connect#key_press ~callback:(fun t ->
+    if nb#current_term.script#misc#get_property "has-focus" <>
+       `BOOL true
+    then false
+    else begin
     eprintf "got key %s\n%!" (pr_key t);
     if current.nanoPG then begin
       match find gui !cur t with
@@ -305,7 +309,7 @@ let init w nb ags =
            cur := c; true
       | `NotFound -> reset (); false
     end else false
-  ));
+  end));
   ignore(w#event#connect#button_press ~callback:(fun t -> reset (); false))