
if {![exists -proc altrow]} {
	proc altrow {{attrs ""}} {{i 0}} {
		puts -nonewline "<tr class="
		if { $i == 0 } {
			puts -nonewline "odd"
		} else {
			puts -nonewline "even"
		}
		if {$attrs ne ""} {
			puts -nonewline " $attrs"
		}
		puts ">";
		set i [expr ! $i]
	}
}

