2011-06-07 13:26:45 +00:00
|
|
|
|
2012-01-13 21:23:03 +00:00
|
|
|
if {![exists -proc altrow]} {
|
2012-03-31 21:16:31 +00:00
|
|
|
proc altrow {{attrs ""}} {{i 0}} {
|
2013-02-04 22:32:21 +00:00
|
|
|
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]
|
2012-03-31 21:16:31 +00:00
|
|
|
}
|
2013-02-04 22:32:21 +00:00
|
|
|
if {$attrs ne ""} { puts -nonewline " $attrs" }
|
2012-03-31 21:16:31 +00:00
|
|
|
puts ">";
|
2011-06-07 13:26:45 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|