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