let add_wp_menu
(popup_factory:GMenu.menu GMenu.factory)
(main_ui:Design.main_window_extension_points)
localizable =
let strategy = get_strategy localizable in
let add_wp_run descr =
ignore (popup_factory#add_item
(Printf.sprintf "Prove %s by WP" descr)
~callback:(fun () -> run_and_prove main_ui strategy))
in
match strategy with
| Snone -> ()
| Scall _ -> add_wp_run "call preconditions"
| Scode { sp_target = descr } -> add_wp_run descr