From 27fbf65f2b504acc4ae8ec5477eaa8b4df05d2ab Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 4 May 2003 14:07:11 +0000 Subject: [PATCH] minor change: changing attribute order in textarea input field --- scheme/httpd/surflets/surflet-input-fields.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm index 65b507e..07abd83 100644 --- a/scheme/httpd/surflets/surflet-input-fields.scm +++ b/scheme/httpd/surflets/surflet-input-fields.scm @@ -113,10 +113,10 @@ (readonly symbol?) (attributes sxml-attribute?)) (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) (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 name "textarea" identity