diff options
| -rw-r--r-- | ide/coqide.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 3cc85b6f26..a519f23979 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -3570,6 +3570,17 @@ with _ := Induction for _ Sort _.\n",61,10, Some GdkKeysyms._S); w#resize ~width:!current.window_width ~height:!current.window_height); + + ignore (w#event#connect#key_press + ~callback: + begin fun ev -> + let key = GdkEvent.Key.keyval ev in + if key = GdkKeysyms._Escape then + queries_frame#misc#hide(); + false + end); + + ignore (w#misc#connect#size_allocate (let old_w = ref 0 |