method add () =
match f_add with
None -> ()
| Some f ->
match view#selection#get_selected_rows with
[] ->
(
match f None with
None -> ()
| Some t -> self#insert t
)
| path::_ ->
let rr = store#get_row_reference path in
let parent = store#get ~row: rr#iter ~column: datacol in
(
match f (Some parent) with
None -> ()
| Some t -> self#insert ~parent: rr#iter t
)