cs_table_header_row

cs_table_header_row { -color "white" -bgcolor "black" -colspan 2 } columns

Generates a table header row, spacing columns with -space if desired.

Source code:

arg_parser_for_cs_table_header_row $args

    set out "<tr>"
    foreach col $columns {
	append out "<th align=left"
	if { $bgcolor != "" } {
	    append out " bgcolor=$bgcolor"
	}
	if { $colspan != 1 } {
	    append out " colspan=$colspan"
	}
	append out ">"
	if { $color != "" } {
	    append out "<font color=$color>"
	}
	append out "$col&nbsp;&nbsp;&nbsp;</th>"
    }
    append out "</tr>"
    return $out