13 lines
177 B
Plaintext
13 lines
177 B
Plaintext
|
|
||
|
|
if {[expr ! [exists -proc altrow ]]} {
|
||
|
|
proc altrow {} {{i 0}} {
|
||
|
|
if { $i == 0 } {
|
||
|
|
puts "<tr class=odd>"
|
||
|
|
} else {
|
||
|
|
puts "<tr class=even>"
|
||
|
|
}
|
||
|
|
set i [expr ! $i]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|