26981ebb2d
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1741 2a923420-c742-0410-a762-8d5b09965624
21 lines
385 B
Plaintext
21 lines
385 B
Plaintext
|
|
if {![exists -proc altrow]} {
|
|
proc altrow {{attrs ""}} {{i 0}} {
|
|
if {$attrs eq "reset"} {
|
|
set i 0
|
|
return
|
|
}
|
|
puts -nonewline "<tr"
|
|
if {[string first "class=" $attrs] == -1} {
|
|
case $i {
|
|
0 { puts -nonewline " class=odd" }
|
|
1 { puts -nonewline " class=even" }
|
|
}
|
|
set i [expr ! $i]
|
|
}
|
|
if {$attrs ne ""} { puts -nonewline " $attrs" }
|
|
puts ">";
|
|
}
|
|
}
|
|
|