4 y : int; (* first row *)
5 x : int; (* first column *)
6 rf: int; (* finite rows *)
7 cf: int; (* finite columns *)
8 ri: int; (* infinite rows *)
9 ci: int; (* infinite columns *)
10 p : bool option; (* parent kind *)
20 type key = Text of string
24 mutable tc: css; (* css classes *)
25 mutable ts: size; (* dimension *)
26 tb: border; (* border *)
27 te: entry; (* contents *)
28 ti: int; (* table identifier *)
31 and entry = Key of key
32 | Line of bool * table list (* true for a row *)
35 let current = ref 0 in
36 fun () -> incr current; !current
39 y = 0; x = 0; rf = 0; cf = 0; ri = 0; ci = 0; p = None;
43 n = b; s = b; e = b; w = b;
47 ts = no_size; tb = border false; te = Key k; tc = tc;
51 let mk_line b tl tc = {
52 ts = no_size; tb = border b; te = Line (b, tl); tc = tc;