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

mention code source

This commit is contained in:
interp 2003-05-22 13:55:03 +00:00
parent 6c99e3a707
commit 08012edab4
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/surflet-input-fields.scm
View File

@ -1,5 +1,6 @@
;;; SUrflets' input fields ;;; SUrflets' input fields
;;; Copyright 2002, 2003 Andreas Bernauer ;;; Copyright 2002, 2003 Andreas Bernauer
;;; With additions from Eric Knauel (2003)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Functions to create simple input fields ;; Functions to create simple input fields
@ -492,6 +493,9 @@
#f `(@ (src ,image-source) #f `(@ (src ,image-source)
,@(sxml-attribute-attributes attributes))))) ,@(sxml-attribute-attributes attributes)))))
;; Image buttons cannot be simple buttons, as the browser does not
;; send their simple name, but the coordinates where the user clicked
;; into. Thanks to Eric Knauel for reporting this bug.
(define (make-image-button image-source . maybe-further-attributes) (define (make-image-button image-source . maybe-further-attributes)
(optionals maybe-further-attributes (optionals maybe-further-attributes
((attributes sxml-attribute?)) ((attributes sxml-attribute?))
@ -503,6 +507,8 @@
(sxml-attribute-attributes attributes)) (sxml-attribute-attributes attributes))
make-button-html-tree))) make-button-html-tree)))
;; The following two functions are from Eric Knauel's fix for the
;; image-button bug:
(define (image-button-transformer image-button bindings) (define (image-button-transformer image-button bindings)
(let ((x (find-image-button-coordinate image-button bindings ".x")) (let ((x (find-image-button-coordinate image-button bindings ".x"))
(y (find-image-button-coordinate image-button bindings ".y"))) (y (find-image-button-coordinate image-button bindings ".y")))