method private _cb__add_column = fun () ->
match self#_get_selection with
| None -> ()
| Some ((_, { td_table = table }), _) ->
let name = SQL_db.create_column_name table () in
let defaults = { CGUI.cgi_name = name;
CGUI.cgi_comment = "";
CGUI.cgi_type = SQL_db.Int (None, SQL_db.NO_None);
CGUI.cgi_nullable = true;
CGUI.cgi_options = Dbf_misc.StringMap.empty;
CGUI.cgi_spec_ty = Dbf_misc.StringMap.empty;
CGUI.cgi_ocaml_type = "";
CGUI.cgi_sql2ml = "";
CGUI.cgi_ml2sql = ""; }
in
let column_window = new CGUI.column_gui self#_column_gui_answer defaults in
column_window#start ()