Commit 4132f249 authored by Sylvain Dailler's avatar Sylvain Dailler

Add get-ce to the contextual menu

parent a1d2969e
...@@ -2065,6 +2065,16 @@ let (_ : GMenu.menu_item) = ...@@ -2065,6 +2065,16 @@ let (_ : GMenu.menu_item) =
~tooltip:"View or edit proof script" ~tooltip:"View or edit proof script"
~callback ~callback
let (_ : GMenu.menu_item) =
let callback =
on_selected_rows ~multiple:false ~notif_kind:"get-ce error"
~action:"Get Counterexamples"
(fun id -> Command_req (id, "get-ce")) in
tools_factory#add_item "_Get Counterexamples"
~key:GdkKeysyms._G
~tooltip:"Launch the prover with counterexamples"
~callback
let (_ : GMenu.menu_item) = let (_ : GMenu.menu_item) =
let callback = let callback =
on_selected_rows ~multiple:false ~notif_kind:"Replay error" ~action:"replay" on_selected_rows ~multiple:false ~notif_kind:"Replay error" ~action:"replay"
...@@ -2167,6 +2177,17 @@ let (_ : GMenu.menu_item) = ...@@ -2167,6 +2177,17 @@ let (_ : GMenu.menu_item) =
~callback ~callback
in (); in ();
let (_ : GMenu.menu_item) =
let callback =
on_selected_rows ~multiple:false ~notif_kind:"get-ce error"
~action:"Get Counterexamples"
(fun id -> Command_req (id, "get-ce")) in
context_factory#add_item "_Get Counterexamples"
~accel_path:"<Why3-Main>/Tools/Get Counterexamples" ~add_accel:false
~tooltip:"Launch the prover with counterexamples"
~callback
in ();
let (_ : GMenu.menu_item) = let (_ : GMenu.menu_item) =
let callback = let callback =
on_selected_rows ~multiple:false ~notif_kind:"Replay error" ~action:"replay" on_selected_rows ~multiple:false ~notif_kind:"Replay error" ~action:"replay"
......
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