Module Dbf_virtualTableGUI (.ml)

module Dbf_virtualTableGUI: sig .. end

module SW: Dbf_selectWidget

module DW: Dbf_dbWidget

type table_view = {

	`tv_view : GTree.view;`
	`tv_model : GTree.list_store;`
	`tv_nc : string GTree.column;`
	`tv_caml : Dbf_sql.SQL_db.table GTree.column;`

}

class vtable_constraints_gui : (Dbf_sql.SQL_db.column * Dbf_sql.SQL_db.column -> 'a) -> Dbf_sql.SQL_db.table list * Dbf_sql.SQL_db.table list -> object .. end

type join_constraint = {

	`jc_column1 : Dbf_sql.SQL_db.column;`
	`jc_column2 : Dbf_sql.SQL_db.column;`

}

val jc_to_tuple : join_constraint ->
       Dbf_sql.SQL_db.column * Dbf_sql.SQL_db.column

type view = {

	`sv_view : GTree.view;`
	`sv_c1 : GTree.view_column;`
	`sv_c2 : GTree.view_column;`

}

class constraints_list_store : unit -> object .. end

type vtable_gui_input = {

	`vtgi_name : string;`
	`vtgi_vtable : Dbf_sql.SQL_db.vtable option;`

}

class vtable_gui : Dbf_sql.SQL_db.table list -> (vtable_gui_input -> 'a) -> vtable_gui_input -> object .. end