method private commit_selected_files selection () =
let files_ok =
try
let f acc file =
match self#autorize_file file with
Ocvs_behav.Skip -> acc
| Ocvs_behav.Continue -> acc @ [file]
| Ocvs_behav.Stop -> raise Not_found
in
List.fold_left f [] selection
with
Not_found -> []
in
match files_ok with
[] -> ()
| files ->
let files = List.map (fun t -> t.Ocvs_types.cvs_file) files in
let f () =
let comment_opt = GToolbox.input_text
M.enter_comment
(M.enter_comment_commit^" : ")
in
match comment_opt with
None -> ()
| Some s ->
cvs#cvs_commit_files ~comment: s files
in
handle_error f () () ;
f_update ()