From 29abe30461f21c67135bee7f2adf8cbdec6ddcd1 Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 3 Oct 2002 12:28:36 +0000 Subject: [PATCH] let MAKE-NUMBER-INPUT-FIELD accept a default value --- scheme/httpd/surflets/surflets.scm | 5 ++++- scheme/httpd/surflets/web-server/root/surflets/calculate.scm | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm index 07c8473..1b6e4d6 100644 --- a/scheme/httpd/surflets/surflets.scm +++ b/scheme/httpd/surflets/surflets.scm @@ -355,12 +355,15 @@ (lambda maybe-further-attributes (let ((name (generate-input-field-name "number"))) (optionals maybe-further-attributes - ((attributes XML-attribute?)) + ((default (lambda (a) (or (number? a) + (string-or-symbol? a)))) + (attributes XML-attribute?)) (make-input-field name number-input-field-transformer `(input (@ (type "text") (name ,name) + (value ,default) ,(and attributes (cdr attributes)))))))))) (define (make-password-input-field . maybe-further-attributes) diff --git a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm index 109f564..94f3440 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm @@ -36,7 +36,7 @@ (define (make-number-input-field/default default) (if default - (make-number-input-field `(@ (value ,default))) + (make-number-input-field default) (make-number-input-field))) (define (show-page operator-pair number1 number2 . maybe-update-text)