method cvs_commit_dir =
let sel = view#selection in
match sel#get_selected_rows with
[] -> ()
| row :: _ ->
let it = store#get_iter row in
let dir = store#get ~row: it ~column: col_complete in
(
(* A VOIR : demander les autorisations pour les fichiers ? *)
let com_opt = GToolbox.input_text
Ocvs_messages.enter_comment
(Ocvs_messages.enter_comment_commit^" : ")
in
match com_opt with
None -> ()
| Some comment ->
(
try let _ = behav#cvs_commit_dir ~comment: comment dir in ()
with Failure s ->
GToolbox.message_box Ocvs_messages.error s
);
self#update_selected_dir
(* A VOIR : mettre à jour les éléments dans data ?
Non, car behav est au courant des fichiers modifiés
et se mettra à jour tout seul.*)
)