method cvs_commit_selected_files =
      (* appeler autorize_file pour chaque élément sélectionné. *)
      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