let diffs_window ~title ~file diffs =
  let x = Odiff_box.window title file diffs in
  object
    method window = x#window
    method file = file
    method diffs = diffs
  end