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