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