method autorize_file (f : Ocvs_types.cvs_info) =
(*
print_string ("autorize file"^file.f_name); print_newline () ;
if data#file_changed file
then
match GToolbox.question_box
~title: M.mQuestion
~buttons: [ M.continue ;
M.skip ;
M.stop ]
(M.save_changed_file_before file.f_name)
with
1 ->
data#save_file file ;
Ocvs_behav.Continue
| 2 -> Ocvs_behav.Skip
| _ -> Ocvs_behav.Stop
else
*)
Ocvs_behav.Continue