From 44268c5c4a05c42eb0e6089a1cfedc66307e6e57 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 14 Jul 2003 08:57:10 +0000 Subject: [PATCH] Remove double definition of MAKE-IMAGE-BUTTON --- scheme/httpd/surflets/surflet-input-fields.scm | 7 ------- 1 file changed, 7 deletions(-) diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm index 8f6b9d2..172ab5a 100644 --- a/scheme/httpd/surflets/surflet-input-fields.scm +++ b/scheme/httpd/surflets/surflet-input-fields.scm @@ -470,13 +470,6 @@ (make-button "reset" (generate-input-field-name "reset") 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 ;; send their simple name, but the coordinates where the user clicked ;; into. Thanks to Eric Knauel for reporting this bug.