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