method cvs_update_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 ? *)
try let _ = behav#cvs_update_dir dir in ()
with Failure s -> GToolbox.message_box Ocvs_messages.error s
);
self#update_selected_dir