Avoid negative CSS widths

This commit is contained in:
df 2021-02-23 00:13:08 +00:00
parent b8964c8017
commit eb7f9667ba

View File

@ -37,6 +37,10 @@ puts "<div style=\"position: relative; top: -10px\">"
proc div {type left right} { proc div {type left right} {
set width $($right - $left) set width $($right - $left)
if {$width < 0} {
# negative values are invalid for CSS width
set width 0
}
puts "<div class=$type style=\"left: ${left}px; width: ${width}px\"> puts "<div class=$type style=\"left: ${left}px; width: ${width}px\">
$type</div>" $type</div>"
} }