method private _add_table_internal = fun ~name ~comment ~logged ->
let table = SQL_db.insert_table db ~name ~comment ~logged in
let model = new column_store () in
let table_data = { td_table = table; td_model = model; } in
let _ = table_model#append_data table_data in
self#_document_changed ()