diff options
author | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-22 09:22:15 +0000 |
---|---|---|
committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-22 09:22:15 +0000 |
commit | 6a43dd3dc162412fbd9a9863840536b01043937d (patch) | |
tree | f63d5a55b57eb852eb88e23135a26d735c968036 /ide/coqide.ml | |
parent | ad4343b8daf31569fe46c53032ce5fc409076672 (diff) |
Wg_Find: regex + case insensitive find/replace support
It uses Str, hence it also supports captures \(..\) and \1 .. \n
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16904 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
-rw-r--r-- | ide/coqide.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index f79322364..5b2ca6f8b 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1007,15 +1007,13 @@ let build_ui () = ~callback:(fun _ -> emit_to_focus w GtkText.View.S.copy_clipboard); item "Paste" ~stock:`PASTE ~callback:(fun _ -> emit_to_focus w GtkText.View.S.paste_clipboard); - item "Find" ~stock:`FIND - ~callback:(cb_on_current_term (fun t -> t.finder#show `FIND)); + item "Find" ~stock:`FIND ~label:"Find / Replace" + ~callback:(cb_on_current_term (fun t -> t.finder#show ())); item "Find Next" ~label:"Find _Next" ~stock:`GO_DOWN ~accel:"F3" ~callback:(cb_on_current_term (fun t -> t.finder#find_forward ())); item "Find Previous" ~label:"Find _Previous" ~stock:`GO_UP ~accel:"<Shift>F3" ~callback:(cb_on_current_term (fun t -> t.finder#find_backward ())); - item "Replace" ~stock:`FIND_AND_REPLACE - ~callback:(cb_on_current_term (fun t -> t.finder#show `REPLACE)); item "Complete Word" ~label:"Complete Word" ~accel:"<Ctrl>slash" ~callback:(fun _ -> ()); item "External editor" ~label:"External editor" ~stock:`EDIT |