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