method private _remove_vtable_from_store = fun name ->
let rref = ref None in
vtable_model#foreach
(fun path iter ->
let vt = vtable_model#get_data ~row:iter in
if vt.SQL_db.vt_name = name then begin
rref := Some (vtable_model#get_row_reference path);
true
end else
false);
match !rref with
| None -> ()
| Some rref ->
let _ = vtable_model#get_data ~row:rref#iter in
(* Virtual table in already unlinked from database *)
self#_document_changed ();
i_bool (vtable_model#remove rref#iter)