Posted to tcl by colin at Sun Jun 06 06:41:57 GMT 2010view pretty
class create ::Steve { method / {r args} { return [Http Ok $r [<form> xxx action exec { [<fieldset> personal tabular 1 legend "Personal Information" { [<text> fullname label "full name" title "Full name to be used in email."] [<text> phone label phone title "Phone number for official contact"] }] [<button> mybutton value submit Push] }]] } method /exec {r args} { return [Http Ok $r [<p> "yo $args"]] } superclass Direct constructor {args} { next {*}$args } } # in site.ini: # [steveexec] # domain = Steve