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 ()