Mercurial > urweb
comparison src/css.sml @ 1258:78b36c50daf9
Fix width/height CSS choices for table rows/columns; stop warning about inability to embed type in JavaScript
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 16 May 2010 18:25:00 -0400 |
parents | c316ca3c9ec6 |
children | b4480a56cab7 |
comparison
equal
deleted
inserted
replaced
1257:fd1a49b51db5 | 1258:78b36c50daf9 |
---|---|
64 | 64 |
65 val nada = ([], []) | 65 val nada = ([], []) |
66 val block = ([Block], [OBlock, Width, Height]) | 66 val block = ([Block], [OBlock, Width, Height]) |
67 val inline = ([], [NonReplacedInline]) | 67 val inline = ([], [NonReplacedInline]) |
68 val list = ([Block, List], [OBlock, Width, Height]) | 68 val list = ([Block, List], [OBlock, Width, Height]) |
69 val replaced = ([], [ ReplacedInline, Width, Height]) | 69 val replaced = ([], [ReplacedInline, Width, Height]) |
70 val table = ([Block, Table], [OBlock, OTable, Width, Height]) | 70 val table = ([Block, Table], [OBlock, OTable, Width, Height]) |
71 val tr = ([Block], [OBlock, Tr, Width]) | 71 val tr = ([Block], [OBlock, Tr, Height]) |
72 val td = ([Block, Td], [OBlock, OTd, Height]) | 72 val td = ([Block, Td], [OBlock, OTd, Width]) |
73 | 73 |
74 val tags = [("span", inline), | 74 val tags = [("span", inline), |
75 ("div", block), | 75 ("div", block), |
76 ("p", block), | 76 ("p", block), |
77 ("b", inline), | 77 ("b", inline), |