method private _cb__add_table = fun () ->
let table_window =
new TGUI.table_gui self#_table_gui_answer
{ TGUI.tgi_name = SQL_db.create_table_name db ();
TGUI.tgi_comment = "";
TGUI.tgi_logged = false ;
TGUI.tgi_pkey = [];
TGUI.tgi_columns = None; }
in
table_window#start ()