code_for_textbox column size customsizeWhat it does:
Helper proc to make-form that makes a textbox for edit page codeDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "" upvar table_name table_name set maxlength [max_col_length $table_name $column] switch $size { small { append form_html "<TD><input type=text size=10 MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></TD></TR>\n\n"} medium { append form_html "<td><input type=text size=40 MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></td></tr>\n\n"} large { append form_html "<td><input type=text size=70 MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></td></tr>\n\n"} spec { append form_html "<td><input type=text size=$customsize MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></td></tr>\n\n"} default { append form_html "<td><input type=text size=40 name=$column MAXLENGTH=$maxlength \[export_form_value $column\]></td></tr>\n\n"} } return $form_html