let impact_selector
(popup_factory:GMenu.menu GMenu.factory) main_ui ~button localizable =
apply_on_stmt
(fun s ->
if button = 3 || FollowFocus.get () then
let callback () = compute_impact main_ui s in
ignore (popup_factory#add_item "_Impact analysis" ~callback);
if FollowFocus.get () then
ignore (Glib.Idle.add (fun () -> callback (); false)))
localizable