Working on XHTML 1.1 validation

2008-09-29 23:13:46 -05:00 · 2008-09-29 23:13:46 -05:00 · 1bd36b3d87
parent 2b10a154ce
commit 1bd36b3d87
2 changed files with 2 additions and 2 deletions
--- a/basis/html/components/components.factor
+++ b/basis/html/components/components.factor
@ -83,7 +83,7 @@ TUPLE: choice size multiple choices ;
    choice new ;

 : render-option ( text selected? -- )
-    <option [ "true" =selected ] when option>
+    <option [ "selected" =selected ] when option>
        present escape-string write
    </option> ;

--- a/extra/webapps/pastebin/new-paste.xml
+++ b/extra/webapps/pastebin/new-paste.xml
@ -18,6 +18,6 @@
 			</tr>
 		</table>

-		<input type="SUBMIT" value="Submit" />
+		<p> <button>Submit</button> </p>
 	</t:form>
 </t:chloe>