method private _cb__remove_vtable = fun () ->
match vtable_view.vt_view#selection#get_selected_rows with
| [path] ->
let iter = vtable_model#get_iter path in
let vtable = vtable_model#get_data ~row:iter in
(* FIXME: use an internal function *)
self#_document_changed ();
i_bool (vtable_model#remove iter);
SQL_db.unlink_vtable vtable
| _ -> ()