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