Posted to tcl by colin at Sun Jun 06 06:41:57 GMT 2010view raw
- 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