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)