handle_textbox column size customsize valueWhat it does:
Helper proc to make-form that makes a textbox for an add pageDefined 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 name=$column MAXLENGTH=$maxlength></td>"} medium { append form_html "<td><input type=text size=40 name=$column MAXLENGTH=$maxlength></td>"} large { append form_html "<td><input type=text size=70 name=$column MAXLENGTH=$maxlength></td>"} spec { append form_html "<td><input type=text size=$customsize name=$column MAXLENGTH=$maxlength></td>"} default { append form_html "<td><input type=text size=40 name=$column MAXLENGTH=$maxlength></td>"} } return $form_html