Make entire toolbar cell clickable
This commit is contained in:
parent
9fe8b3a067
commit
249af1b4fa
@ -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>
|
||||||
"
|
"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user