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

Remove double definition of MAKE-IMAGE-BUTTON

This commit is contained in:
interp 2003-07-14 08:57:10 +00:00
parent e634526856
commit 44268c5c4a
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -470,13 +470,6 @@
(make-button "reset" (generate-input-field-name "reset") (make-button "reset" (generate-input-field-name "reset")
button-caption attributes))) button-caption attributes)))
(define (make-image-button image-source . maybe-further-attributes)
(let-optionals maybe-further-attributes
((attributes '() sxml-attribute?))
(make-button "image" (generate-input-field-name "imgbtn")
#f `(@ (src ,image-source)
,@(sxml-attribute-attributes attributes)))))
;; Image buttons cannot be simple buttons, as the browser does not ;; Image buttons cannot be simple buttons, as the browser does not
;; send their simple name, but the coordinates where the user clicked ;; send their simple name, but the coordinates where the user clicked
;; into. Thanks to Eric Knauel for reporting this bug. ;; into. Thanks to Eric Knauel for reporting this bug.