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