cs_table_header_row { -color "white" -bgcolor "black" -colspan 2 } columnsWhat it does:
Generates a table header row, spacing columns with -space if desired.Defined in: /web/philip/tcl/cs-admin-defs.tcl
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 </th>" } append out "</tr>" return $out