method remove () =
match f_remove with
None -> ()
| Some f ->
match view#selection#get_selected_rows with
[] -> ()
| path::_ ->
let row = store#get_iter path in
if f ( store#get ~row ~column: datacol) then
ignore(store#remove row)
else
()