handle_edit_textbox column size customsize valueWhat it does:
Helper proc to make_edit_form that makes a textbox for an edit pageDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "" switch $size { small { append form_html "<td><input type=text size=10 name=$column [export_form_value value]></td>"} medium { append form_html "<td><input type=text size=40 name=$column [export_form_value value]></td>"} large { append form_html "<td><input type=text size=70 name=$column [export_form_value value]></td>"} spec { append form_html "<td><input type=text size=$customsize name=$column [export_form_value value]></td>"} default { append form_html "<td><input type=text size=40 name=$column [export_form_value value]></td>"} } return $form_html