sig
  type table_gui_input =
    Dbf_indexGUI.table_gui_input = {
    idxgi_name : string;
    idxgi_table : Dbf_sql.SQL_db.table;
    idxgi_columns : Dbf_sql.SQL_db.column list;
    idxgi_unique : bool;
  }
  class index_gui :
    (table_gui_input -> 'a) ->
    table_gui_input ->
    object
      method private _cb__cancel_button_clicked : unit -> unit
      method private _cb__ok_button_clicked : unit -> unit
      method private _grab_input : table_gui_input
      method columns_in_index : Dbf_sql.SQL_db.column list
      method set_columns :
        Dbf_sql.SQL_db.column list * Dbf_sql.SQL_db.column list -> unit
      method start : unit -> unit
    end
end