diff options
author | 2013-01-25 17:49:33 +0000 | |
---|---|---|
committer | 2013-01-25 17:49:33 +0000 | |
commit | 96afc7389d45ce85255982058e4688c71266a700 (patch) | |
tree | f0595110c45e155735c94acc24bf2fa44c4709e3 /ide | |
parent | 2cfb6ec1511c523657f523627f4cfd6c651c6680 (diff) |
Hugo request: CoqIDE find on enter
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16143 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
-rw-r--r-- | ide/wg_Find.ml | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/ide/wg_Find.ml b/ide/wg_Find.ml index 1628d58d9..83d1a1a23 100644 --- a/ide/wg_Find.ml +++ b/ide/wg_Find.ml @@ -218,8 +218,16 @@ class finder (view : GText.view) = let _ = r_next_button#connect#clicked ~callback:self#find_forward in let _ = r_previous_button#connect#clicked ~callback:self#find_backward in let _ = r_replace_button#connect#clicked ~callback:self#replace in - let _ = r_replace_all_button#connect#clicked ~callback:self#replace_all - in () + let _ = r_replace_all_button#connect#clicked ~callback:self#replace_all in + let find_cb ev = + let ev_key = GdkEvent.Key.keyval ev in + let (key, _) = GtkData.AccelGroup.parse "Return" in + let () = Printf.printf "%i %i\n%!" ev_key key in + if ev_key = key then (self#find_forward (); true) + else false + in + let _ = find_entry#event#connect#key_press find_cb in + () end |