let display_diffs ?on_close ~title ~file diffs = let w = Odiff_gui.diffs_window ~title ~file diffs in (match on_close with None -> () | Some f -> ignore (w#window#connect#destroy f) ); w#window#show ()