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