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}} {
|
|
|
|
|
puts -nonewline "<tr class="
|
2011-06-07 13:26:45 +00:00
|
|
|
if { $i == 0 } {
|
2012-03-31 21:16:31 +00:00
|
|
|
puts -nonewline "odd"
|
2011-06-07 13:26:45 +00:00
|
|
|
} else {
|
2012-03-31 21:16:31 +00:00
|
|
|
puts -nonewline "even"
|
2011-06-07 13:26:45 +00:00
|
|
|
}
|
2012-03-31 21:16:31 +00:00
|
|
|
if {$attrs ne ""} {
|
|
|
|
|
puts -nonewline " $attrs"
|
|
|
|
|
}
|
|
|
|
|
puts ">";
|
2011-06-07 13:26:45 +00:00
|
|
|
set i [expr ! $i]
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
