From dca13aabde6751017b15414c4886530ebef5faf7 Mon Sep 17 00:00:00 2001 From: interp Date: Sat, 21 Jun 2003 15:27:20 +0000 Subject: [PATCH] slight adaptation, mainly renaming --- .../surflets/web-server/root/surflets/add-surflet.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm b/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm index f2bcde8..7685956 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm @@ -3,9 +3,9 @@ scheme-with-scsh) (begin - (define number-input-field (make-number-input-field)) + (define number-input (make-number-input-field)) - (define (create-input-page title input-text) + (define (create-input-page title input-text number-input) (lambda (new-url) `(html (title ,title) (body @@ -13,7 +13,7 @@ (p (surflet-form ,new-url ,input-text " " - ,number-input-field + ,number-input ,(make-submit-button))) (hr) (p (url "/" "Return to main menu.") (br) @@ -21,9 +21,9 @@ (define (get-number title input-text) (let* ((result (send-html/suspend - (create-input-page title input-text))) + (create-input-page title input-text number-input))) (bindings (get-bindings result)) - (number (input-field-value number-input-field bindings))) + (number (input-field-value number-input bindings))) (if number number (get-number title "Please enter a valid number."))))