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
      | _ -> ()