scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow default text for text input fields

This commit is contained in:
interp 2002-10-01 17:40:08 +00:00
parent fa350f02bf
commit e68b320eb0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/surflets.scm
View File

@ -301,11 +301,13 @@
(define (make-text-input-field . maybe-further-attributes) (define (make-text-input-field . maybe-further-attributes)
(let ((name (generate-input-field-name "text"))) (let ((name (generate-input-field-name "text")))
(optionals maybe-further-attributes (optionals maybe-further-attributes
((attributes XML-attribute?)) ((default-text string?)
(attributes XML-attribute?))
(make-input-field name (make-input-field name
identity identity
`(input (@ (type "text") `(input (@ (type "text")
(name ,name) (name ,name)
,(and default-text `(value ,default-text))
;; this will insert a list, but ;; this will insert a list, but
;; XML->HTML doesn't care about it ;; XML->HTML doesn't care about it
,(and attributes (cdr attributes)) ,(and attributes (cdr attributes))