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

View File

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

View File

@ -269,7 +269,7 @@
(define (make-input-field name transformer HTML-tree)
(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)))
;; PRED-LIST contains list of predicates that recognizes optional
@ -444,7 +444,7 @@
#\newline
,SXML-options)))
(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)))))))
;; returns a *list* of radio buttons

View File

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