let occurrence_selector
(popup_factory:GMenu.menu GMenu.factory) main_ui ~button localizable =
apply_on_vi
(fun vi ->
if button = 3 || FollowFocus.get () then begin
let callback = find_occurrence main_ui vi in
ignore (popup_factory#add_item "_Occurrence" ~callback);
if FollowFocus.get () then
ignore (Glib.Idle.add (fun () -> callback (); false))
end)
localizable