column_select columns selectnameWhat it does:
produces a selectbox of all the columns listed in the variable columnsDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set select_html "<select name=$selectname>\n" append select_html "<option value=\"none\">None.\n" foreach column $columns { append select_html "<option value=$column>$column\n" } append select_html "</select>\n" return $select_html