allow default text for text input fields

2002-10-01 17:40:08 +00:00 · 2002-10-01 17:40:08 +00:00 · e68b320eb0
parent fa350f02bf
commit e68b320eb0
1 changed files with 3 additions and 1 deletions
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@ -301,11 +301,13 @@
 (define (make-text-input-field . maybe-further-attributes)
  (let ((name (generate-input-field-name "text")))
    (optionals maybe-further-attributes 
-	((attributes XML-attribute?))
+	((default-text string?)
+	 (attributes XML-attribute?))
      (make-input-field name
 			identity
 			`(input (@ (type "text")
 				   (name ,name)
+				   ,(and default-text `(value ,default-text))
 				   ;; this will insert a list, but
 				   ;; XML->HTML doesn't care about it
 				   ,(and attributes (cdr attributes))