Working on XHTML 1.1 validation

diff --git a/basis/html/components/components.factor b/basis/html/components/components.factor
index dafc9dd06bec88118344ddceafa12fa6ba81aefe..6f35ba5d975bd21af143347af6c39345422b3dbc 100644 (file)
--- 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> ;
 

diff --git a/extra/webapps/pastebin/new-paste.xml b/extra/webapps/pastebin/new-paste.xml
index 6abae4895ba502f74415a6f7a9178c46ff41502b..96339b6cf86a0b77438e74e2176522aafe176a2e 100644 (file)
--- 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>