| T.Key (T.Text sl) -> M.set_key st.tm t.T.ts.T.y t.T.ts.T.x sl
| _ -> ()
-let set_css st t =
+let set_attrs st t =
let rec aux y x =
if y >= t.T.ts.T.rf then () else
if x >= t.T.ts.T.cf then aux (succ y) 0 else begin
- M.set_css st.tm (t.T.ts.T.y + y) (t.T.ts.T.x + x) t.T.tc;
+ M.set_attrs st.tm (t.T.ts.T.y + y) (t.T.ts.T.x + x) t.T.tc t.T.tu t.T.tx t.T.tn;
aux y (succ x)
end
in
print st t; st
let close_table st t =
- set_key st t; set_css st t; set_borders st t; st
+ set_key st t; set_attrs st t; set_borders st t; st
let map_key st k = st