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