Source of submit-test.tcl
form create submit_test
element create submit_test name -label "Name" \
-widget text -datatype text -size 20
element create submit_test over -label "I am over 18" \
-widget submit -datatype text
element create submit_test under -label "I am young and impressionable" \
-widget submit -datatype text
if { [form is_valid submit_test] } {
form get_values submit_test over under name
if { ![template::util::is_nil over] } {
set text "Naughty-naughty, $name."
} elseif { ![template::util::is_nil under] } {
set text "Quick ! Close your eyes, young $name !"
}
} else {
set text "SUBMIT already !"
}
# Local variables:
# mode: tcl
# tcl-indent-level: 4
# indent-tabs-mode: nil
# End: