Posted to tcl by colin at Sun Jun 06 06:41:57 GMT 2010view raw

  1. class create ::Steve {
  2. method / {r args} {
  3. return [Http Ok $r [<form> xxx action exec {
  4. [<fieldset> personal tabular 1 legend "Personal Information" {
  5. [<text> fullname label "full name" title "Full name to be used in email."]
  6. [<text> phone label phone title "Phone number for official contact"]
  7. }]
  8. [<button> mybutton value submit Push]
  9. }]]
  10. }
  11.  
  12. method /exec {r args} {
  13. return [Http Ok $r [<p> "yo $args"]]
  14. }
  15.  
  16. superclass Direct
  17. constructor {args} {
  18. next {*}$args
  19. }
  20. }
  21.  
  22. # in site.ini:
  23. # [steveexec]
  24. # domain = Steve