Commit 87585cc2 authored by Clément Fumex's avatar Clément Fumex
Browse files

add completion for detected provers + hard coded add of auto

parent 3b6e3e61
...@@ -356,7 +356,7 @@ let add_completion_entry s = ...@@ -356,7 +356,7 @@ let add_completion_entry s =
let row = completion_model#append () in let row = completion_model#append () in
completion_model#set ~row ~column:completion_col s completion_model#set ~row ~column:completion_col s
let init_comp () = let init_comp cont =
(* add the names of all the the transformations *) (* add the names of all the the transformations *)
List.iter add_completion_entry (Trans.list_trans ()); List.iter add_completion_entry (Trans.list_trans ());
(* add the name of the commands *) (* add the name of the commands *)
...@@ -364,6 +364,14 @@ let init_comp () = ...@@ -364,6 +364,14 @@ let init_comp () =
Session_user_interface.commands; Session_user_interface.commands;
(* todo: add queries *) (* todo: add queries *)
(* add provers *)
Whyconf.Hprover.iter
(fun p _ -> add_completion_entry (p.Whyconf.prover_name^","^p.Whyconf.prover_version))
cont.Controller_itp.controller_provers;
add_completion_entry "auto";
add_completion_entry "auto 2";
command_entry_completion#set_text_column completion_col; command_entry_completion#set_text_column completion_col;
command_entry#set_completion command_entry_completion command_entry#set_completion command_entry_completion
...@@ -772,7 +780,7 @@ let (_ : GtkSignal.id) = ...@@ -772,7 +780,7 @@ let (_ : GtkSignal.id) =
let () = let () =
build_tree_from_session cont; build_tree_from_session cont;
(* temporary *) (* temporary *)
init_comp (); init_comp cont;
vpan222#set_position 500; vpan222#set_position 500;
goals_view#expand_all (); goals_view#expand_all ();
main_window#add_accel_group accel_group; main_window#add_accel_group accel_group;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment