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