# # patch "configure.ac" # from [fe7b2a288ec73db3487937bd1cc2538ba7494603] # to [18819601f14733e652159cd0205fa01fc2120030] # # patch "unidiff.ml" # from [fe18aec530b716b4d80c29b1730bdddb904bde36] # to [50aa596af4116bc72ddd7fd6e05c030f91102881] # --- configure.ac +++ configure.ac @@ -1,4 +1,4 @@ -AC_INIT(monotone-viz, 0.9) +AC_INIT(git-viz, 0.1) AC_PROG_OCAML AC_PROG_OCAML_TOOLS --- unidiff.ml +++ unidiff.ml @@ -89,7 +89,7 @@ let s = GWindow.file_chooser_dialog ~action:`SAVE ~parent ~destroy_with_parent:true - ~title:"Save monotone diff output" () in + ~title:"Save git diff output" () in s#add_button_stock `CANCEL `CANCEL ; s#add_select_button_stock `SAVE `SAVE ; s#set_default_response `SAVE ; @@ -102,13 +102,13 @@ with_file_out (fun oc -> output_string oc text) f with Sys_error _ -> - Viz_types.errorf "Could not write monotone diff output to '%s'" f)) ; + Viz_types.errorf "Could not write git diff output to '%s'" f)) ; s let view_diff ?parent (junk_end, tags_coords) text = let window = GWindow.dialog ~no_separator:true ?parent - ~title:"Monotone diff output" + ~title:"Git diff output" ~type_hint:`NORMAL ~icon:(Lazy.force Icon.monotone) () in window#add_button_stock `SAVE `SAVE ; @@ -179,6 +179,6 @@ ~buttons:GWindow.Buttons.close ?parent ~destroy_with_parent:true - ~title:"Monotone diff output" () in + ~title:"Git diff output" () in ignore (d#connect#response (fun _ -> d#destroy ())) ; d#show ()