Working on XHTML 1.1 validation
parent
2b10a154ce
commit
1bd36b3d87
|
@ -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> ;
|
||||||
|
|
||||||
|
|
|
@ -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>
|
||||||
|
|
Loading…
Reference in New Issue