method private commit_selected_files selection () =
      (* appeler autorize_file pour chaque élément sélectionné. *)
      let files_ok =
        try
          let f acc file =
            match self#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
        [] -> ()
      | files ->
          let files = List.map (fun t -> t.Ocvs_types.cvs_file) files in
          let f () =
            let comment_opt = GToolbox.input_text
               M.enter_comment
               (M.enter_comment_commit^" : ")
            in
            match comment_opt with
              None -> ()
            | Some s ->
                cvs#cvs_commit_files ~comment: s files
          in
          handle_error f () () ;
          f_update ()