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