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

Always add COLS and ROWS attributes to TEXTAREA to suffice HTML 4.01

This commit is contained in:
interp 2003-07-08 22:50:21 +00:00
parent c78145dee2
commit 3384fdd920
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/httpd/surflets/surflet-input-fields.scm
View File

@ -108,11 +108,11 @@
(cols number?) (cols number?)
(readonly symbol?) (readonly symbol?)
(attributes sxml-attribute?)) (attributes sxml-attribute?))
(let ((extra-attributes '())) (let ((extra-attributes
(if (eq? readonly 'readonly) (list `(cols ,(or cols 20))
(set! extra-attributes (cons '(readonly) extra-attributes))) `(rows ,(or rows 5))
(if cols (set! extra-attributes (cons `(cols ,cols) extra-attributes))) (and (eq? readonly 'readonly)
(if rows (set! extra-attributes (cons `(rows ,rows) extra-attributes))) '(readonly)))))
(make-input-field (make-input-field
name "textarea" name "textarea"
identity identity