Working on XHTML 1.1 validation

db4
Slava Pestov 2008-09-29 23:13:46 -05:00
parent 2b10a154ce
commit 1bd36b3d87
2 changed files with 2 additions and 2 deletions

View File

@ -83,7 +83,7 @@ TUPLE: choice size multiple choices ;
choice new ; choice new ;
: render-option ( text selected? -- ) : render-option ( text selected? -- )
<option [ "true" =selected ] when option> <option [ "selected" =selected ] when option>
present escape-string write present escape-string write
</option> ; </option> ;

View File

@ -18,6 +18,6 @@
</tr> </tr>
</table> </table>
<input type="SUBMIT" value="Submit" /> <p> <button>Submit</button> </p>
</t:form> </t:form>
</t:chloe> </t:chloe>