21 lines
389 B
Plaintext
21 lines
389 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} {
|
|
switch $i {
|
|
0 { puts -nonewline " class=odd" }
|
|
1 { puts -nonewline " class=even" }
|
|
}
|
|
set i [expr {! $i}]
|
|
}
|
|
if {$attrs ne ""} { puts -nonewline " $attrs" }
|
|
puts ">";
|
|
}
|
|
}
|
|
|