method private _update_column_internal =
fun row_ref column
~name ~comment ~ty ~nullable ~options ~spec_ty
~ocaml_type ~sql2ml ~ml2sql
() ->
begin
match name with
| None -> ()
| Some name ->
SQL_db.rename_column column name
end;
column.SQL_db.col_type <- ty;
column.SQL_db.col_comment <- comment;
column.SQL_db.col_nullable <- nullable;
column.SQL_db.col_spec_options <- options;
column.SQL_db.col_spec_ty <- spec_ty;
column.SQL_db.col_ocaml_ty <- ocaml_type;
column.SQL_db.col_sql2ml <- sql2ml;
column.SQL_db.col_ml2sql <- ml2sql;
current_column_model#update_display row_ref#iter;
self#_document_changed ()