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
1 changed files with 4 additions and 4 deletions

View File

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