From 08012edab43fc3b07445e4085dada888d33e42f7 Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 22 May 2003 13:55:03 +0000 Subject: [PATCH] mention code source --- scheme/httpd/surflets/surflet-input-fields.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm index c5c4cd4..0b0332d 100644 --- a/scheme/httpd/surflets/surflet-input-fields.scm +++ b/scheme/httpd/surflets/surflet-input-fields.scm @@ -1,5 +1,6 @@ ;;; SUrflets' input fields ;;; Copyright 2002, 2003 Andreas Bernauer +;;; With additions from Eric Knauel (2003) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Functions to create simple input fields @@ -492,6 +493,9 @@ #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. (define (make-image-button image-source . maybe-further-attributes) (optionals maybe-further-attributes ((attributes sxml-attribute?)) @@ -503,6 +507,8 @@ (sxml-attribute-attributes attributes)) 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) (let ((x (find-image-button-coordinate image-button bindings ".x")) (y (find-image-button-coordinate image-button bindings ".y")))