method cvs_commit_selected_files =
let files_ok =
try
let f acc file =
match behav#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
[] -> ()
| l ->
let files = List.map (fun t -> (behav#cvs_info_of_t t).Ocvs_types.cvs_file) l in
let comment_opt = GToolbox.input_text
Ocvs_messages.enter_comment
(Ocvs_messages.enter_comment_commit^" : ")
in
match comment_opt with
None ->
()
| Some s ->
(
try behav#cvs_commit_files ~comment: s files
with Failure s -> GToolbox.message_box Ocvs_messages.error s
);
self#update behav#needs_cvs_status