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