(* TABLES *)

val debug : bool ref

type cell_type = HeaderCell | DataCell

type t = {
  close_table : unit -> unit;
  add_col : Html.tag -> unit;
  open_row : Html.tag -> unit;
  new_cell : cell_type -> Html.tag -> int -> int -> Widget.widget
  }

val create : Widget.widget -> Html.tag -> t

