11 lines
259 B
Plaintext
11 lines
259 B
Plaintext
|
|
||
|
if {[expr ! [exists -proc progressbar ]]} {
|
||
|
proc progressbar {percent} {
|
||
|
set pos [expr 118 - $percent / 100.0 * 118]
|
||
|
return "<img src=/img/percentimage.png
|
||
|
alt=\"$percent%\" class=progress
|
||
|
style=\"background-position: -${pos}px 0;\">"
|
||
|
}
|
||
|
}
|
||
|
|