column_select

column_select   columns   selectname

produces a selectbox of all the columns listed in the variable columns

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