method insert_node ?parent dirname basename =
      let complete_name = Filename.concat dirname basename in
      let row = store#append ?parent () in
      store#set row col_dir basename;
      store#set row col_complete complete_name;

      let subdirs = Ocvs_misc.get_cvs_directories complete_name in
      match subdirs with
        [] ->
          ()
      | l ->
          let rr = store#get_row_reference (store#get_path row) in
          List.iter
            (self#insert_node ~parent: row complete_name)
            (List.sort compare l);
          if behav#expand_dir complete_name then
            view#expand_row rr#path