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

MAKE-UPPER-INPUT-FIELD --> MAKE-HIGHER-INPUT-FIELD

This commit is contained in:
interp 2002-10-09 15:25:14 +00:00
parent e29d3d750a
commit fa61699155
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/packages.scm
View File

@ -148,7 +148,7 @@
generate-input-field-name generate-input-field-name
make-input-field make-input-field
make-upper-input-field make-higher-input-field
make-text-input-field make-text-input-field
make-hidden-input-field make-hidden-input-field
make-password-input-field make-password-input-field

4
scheme/httpd/surflets/surflets.scm
View File

@ -269,7 +269,7 @@
(define (make-input-field name transformer HTML-tree) (define (make-input-field name transformer HTML-tree)
(list 'input-field (real-make-input-field name transformer HTML-tree #f))) (list 'input-field (real-make-input-field name transformer HTML-tree #f)))
(define (make-upper-input-field transformer HTML-tree) (define (make-higher-input-field transformer HTML-tree)
(list 'input-field (real-make-input-field #f transformer HTML-tree #t))) (list 'input-field (real-make-input-field #f transformer HTML-tree #t)))
;; PRED-LIST contains list of predicates that recognizes optional ;; PRED-LIST contains list of predicates that recognizes optional
@ -444,7 +444,7 @@
#\newline #\newline
,SXML-options))) ,SXML-options)))
(if multiple? (if multiple?
(make-upper-input-field (make-multiple-transformer name) SXML) (make-higher-input-field (make-multiple-transformer name) SXML)
(make-input-field name identity SXML))))))) (make-input-field name identity SXML)))))))
;; returns a *list* of radio buttons ;; returns a *list* of radio buttons

2
scheme/httpd/surflets/web-server/root/surflets/byte-input.scm
View File

@ -20,7 +20,7 @@
(make-checkbox-input-field (number->string order)) (make-checkbox-input-field (number->string order))
(loop (+ 1 count) (loop (+ 1 count)
(* 2 order)))))))) (* 2 order))))))))
(make-upper-input-field (make-higher-input-field
(lambda (bindings) (lambda (bindings)
(let loop ((sum 0) (let loop ((sum 0)
(checkboxes checkboxes)) (checkboxes checkboxes))