method private _table_gui_answer = fun input ->
    if not (SQL_db.validate_name input.TGUI.tgi_name) then
      raise (Invalid_input "Invalid table name");
    if SQL_db.table_by_name_opt db input.TGUI.tgi_name <> None then
      raise (Invalid_input "Name already used");
    self#_add_table_internal
      ~name:input.TGUI.tgi_name
      ~comment:input.TGUI.tgi_comment
      ~logged:input.TGUI.tgi_logged