method private _cb__add_index = fun () ->
match self#_get_selection with
| None -> ()
| Some ((_, { td_table = table }), _) ->
let defaults = { IGUI.idxgi_name = SQL_db.create_index_name db ();
IGUI.idxgi_table = table;
IGUI.idxgi_columns = [];
IGUI.idxgi_unique = false; }
in
let index_window = new IGUI.index_gui self#_index_gui_answer defaults in
index_window#start ()