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

slight adaptation, mainly renaming

This commit is contained in:
interp 2003-06-21 15:27:20 +00:00
parent 64a8793a37
commit dca13aabde
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/web-server/root/surflets/add-surflet.scm
View File

@ -3,9 +3,9 @@
scheme-with-scsh) scheme-with-scsh)
(begin (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) (lambda (new-url)
`(html (title ,title) `(html (title ,title)
(body (body
@ -13,7 +13,7 @@
(p (p
(surflet-form ,new-url (surflet-form ,new-url
,input-text " " ,input-text " "
,number-input-field ,number-input
,(make-submit-button))) ,(make-submit-button)))
(hr) (hr)
(p (url "/" "Return to main menu.") (br) (p (url "/" "Return to main menu.") (br)
@ -21,9 +21,9 @@
(define (get-number title input-text) (define (get-number title input-text)
(let* ((result (send-html/suspend (let* ((result (send-html/suspend
(create-input-page title input-text))) (create-input-page title input-text number-input)))
(bindings (get-bindings result)) (bindings (get-bindings result))
(number (input-field-value number-input-field bindings))) (number (input-field-value number-input bindings)))
(if number (if number
number number
(get-number title "Please enter a valid number.")))) (get-number title "Please enter a valid number."))))