Make entire toolbar cell clickable

This commit is contained in:
/df 2019-11-17 16:07:56 +00:00 committed by HummyPkg
parent 9fe8b3a067
commit 249af1b4fa

View File

@ -12,13 +12,13 @@ proc tb {icon txt link {height 50} {width 0}} {
} else { } else {
set width "" set width ""
} }
puts -nonewline "<span class=toolbarcell> puts -nonewline "<a href=\"$link\">
<a href=\"$link\"> <span class=toolbarcell>
<img src=\"$icon\" height=${height}${width} border=0> <img src=\"$icon\" height=${height}${width} border=0>
<br> <br>
$txt $txt
</a>
</span> </span>
</a>
" "
} }