(Dbf_indexGUI.table_gui_input -> 'a) ->
Dbf_indexGUI.table_gui_input ->
object
  method private _cb__cancel_button_clicked : unit -> unit
  method private _cb__ok_button_clicked : unit -> unit
  method private _grab_input : Dbf_indexGUI.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