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?)
(readonly symbol?)
(attributes sxml-attribute?))
(let ((extra-attributes '()))
(if (eq? readonly 'readonly)
(set! extra-attributes (cons '(readonly) extra-attributes)))
(if cols (set! extra-attributes (cons `(cols ,cols) extra-attributes)))
(if rows (set! extra-attributes (cons `(rows ,rows) extra-attributes)))
(let ((extra-attributes
(list `(cols ,(or cols 20))
`(rows ,(or rows 5))
(and (eq? readonly 'readonly)
'(readonly)))))
(make-input-field
name "textarea"
identity