f116cc5801
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1396 2a923420-c742-0410-a762-8d5b09965624
17 lines
333 B
Plaintext
17 lines
333 B
Plaintext
|
|
if {![exists -proc altrow]} {
|
|
proc altrow {{attrs ""}} {{i 0}} {
|
|
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 ">";
|
|
}
|
|
}
|
|
|