diff options
| author | monate | 2003-03-24 19:17:04 +0000 |
|---|---|---|
| committer | monate | 2003-03-24 19:17:04 +0000 |
| commit | 5217df6c2c79d4e6f7de8c926742f482223f9008 (patch) | |
| tree | 1c5033f78eebae6c94b9d4e4238872861348fad4 /ide/coqide.ml | |
| parent | d84551b17840a1dc4a13a84231a9bcf3bea73f2b (diff) | |
coqide: compact delete event-search start
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3787 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
| -rw-r--r-- | ide/coqide.ml | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 01331ef9bb..6b63c788ea 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1180,7 +1180,7 @@ let main files = in let load_m = file_factory#add_item "_Open/Create" ~key:GdkKeysyms._O in let load_f () = - match GToolbox.select_file ~title:"_Load file" () with + match select_file ~title:"_Load file" () with | None -> () | (Some f) as fn -> load f in @@ -1405,7 +1405,7 @@ let main files = (fun () -> GtkSignal.emit_unit (get_current_view()).view#as_view GtkText.View.Signals.copy_clipboard)); - ignore(edit_f#add_item "Cut" ~key:GdkKeysyms._X ~callback: + ignore(edit_f#add_item "Cut" (* ~key:GdkKeysyms._X *) ~callback: (do_if_not_computing (fun () -> GtkSignal.emit_unit (get_current_view()).view#as_view @@ -1425,6 +1425,13 @@ let main files = ) in read_only_i#misc#set_state `INSENSITIVE; + let search_i = edit_f#add_item "Search" + ~key:GdkKeysyms._F + ~callback:(fun b -> + let v = get_current_view () in () + ) + in +(* search_i#misc#set_state `INSENSITIVE;*) to_do_on_page_switch := (fun i -> |