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.*)

          )