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 () = ignore (impact_statement_ui main_ui s) in
ignore (popup_factory#add_item "_Impact analysis" ~callback);
if FollowFocus.get () then
ignore (Glib.Idle.add (fun () -> callback (); false)))
localizable