let string_diffs_window ~title ~string diffs =
  let x = new Odiff_box.string_window title string diffs in
  object
    method window = x#window
    method string = string
    method diffs = diffs
  end