method private _cb__add_vtable = fun () ->
let defaults = { VTGUI.vtgi_name = SQL_db.create_vtable_name db ();
VTGUI.vtgi_vtable = None; } in
let vtable_window =
new VTGUI.vtable_gui (db.SQL_db.db_tables)
self#_vtable_gui_answer defaults
in
vtable_window#start ()