Changeset 15055 for lang/gauche

Timestamp:

07/02/08 22:43:41 (6 months ago)

Author:

kiyoka

Message:

 

Files:

• lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua (modified) (1 diff)

lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua

@@ -339 +339 @@
        (form/ (@/ (action "."))
               (table/
-               (tr/ (th/ "Name:")
-                    (td/ (input/
-                          (@/ (type "text") (value "") (size 20)))))
-               (tr/ (th/ "Comment:")
-                    (td/ (input/
-                          (@/ (type "text") (value "") (size 120)))))
-               (tr/ (th/ "")
-                    (td/ (input/ (@/ (type "submit") (value "Add"))))))))
+               (tr/ (th/ "Post a comment"))
+               (tr/ (td/
+                     "Name:"
+                     (input/
+                      (@/ (type "text") (value "") (size 20)))))
+               (tr/ (td/
+                     (textarea/
+                      (@/ (cols 120) (rows 3)))))
+               (tr/ (td/
+                     (input/ (@/ (type "submit") (value "Submit comment"))))))))
                     
       (else