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