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

minor change: changing attribute order in textarea input field

This commit is contained in:
interp 2003-05-04 14:07:11 +00:00
parent 219bcaa4fe
commit 27fbf65f2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,10 +113,10 @@
(readonly symbol?) (readonly symbol?)
(attributes sxml-attribute?)) (attributes sxml-attribute?))
(let ((extra-attributes '())) (let ((extra-attributes '()))
(if rows (set! extra-attributes (cons `(rows ,rows) extra-attributes)))
(if cols (set! extra-attributes (cons `(cols ,cols) extra-attributes)))
(if (eq? readonly 'readonly) (if (eq? readonly 'readonly)
(set! extra-attributes (cons '(readonly) extra-attributes))) (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)))
(make-input-field (make-input-field
name "textarea" name "textarea"
identity identity