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