sig
type table_gui_input =
Dbf_tableGUI.table_gui_input = {
tgi_name : string;
tgi_comment : string;
tgi_logged : bool;
tgi_pkey : Dbf_sql.SQL_db.column list;
tgi_columns : Dbf_sql.SQL_db.column list option;
}
class table_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 start : unit -> unit
end
end