let window title file diffs = let string = Odiff_merge.string_of_file file in new string_window title string diffs