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