From 7e76eac6c804343dfd2cee295e33769f95c31906 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 11 Jul 2003 11:38:28 +0000
Subject: [PATCH] * New packages SURFLETS/INTERNAL-INPUT-FIELDS provides
 bindings used to    define INPUT-FIELD-RULE in surflet-input-fields.scm. *
 Change imports of SURFLETS/SURFLET-SXML (don't need pre-post-order anymore).

---
 scheme/httpd/surflets/packages.scm | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/scheme/httpd/surflets/packages.scm b/scheme/httpd/surflets/packages.scm
index 3713988..a25f7b1 100644
--- a/scheme/httpd/surflets/packages.scm
+++ b/scheme/httpd/surflets/packages.scm
@@ -286,8 +286,7 @@
 (define-interface surflets/my-input-fields-interface
   (compound-interface 
    surflets/input-field-value-interface
-   (export *input-field-trigger*
-	   generate-input-field-name
+   (export generate-input-field-name
 	   make-input-field
 	   make-multi-input-field
 	   input-field-name
@@ -300,6 +299,12 @@
 	   set-input-field-attributes!
 	   touch-input-field!)))
 
+;; For internal use: special exports to create 
+;; SXL-rules for input-fields
+(define-interface surflets/internal-input-fields-interface
+  (export *input-field-trigger*
+	  make-sxml-input-field))
+
 (define-interface surflets/surflet-input-fields-interface
   (compound-interface
    surflets/input-field-value-interface
@@ -555,7 +560,8 @@
 ;; Input fields as Scheme objects
 (define-structures 
   ((surflets/input-field-value surflets/input-field-value-interface)
-   (surflets/my-input-fields surflets/my-input-fields-interface))
+   (surflets/my-input-fields surflets/my-input-fields-interface)
+   (surflets/internal-input-fields surflets/internal-input-fields-interface))
   (open scheme-with-scsh		;error, format
 	(subset let-opt (:optional))
 	handle-fatal-error
@@ -585,10 +591,13 @@
 ;; Extensions to SXML for surflets
 (define-structure surflets/surflet-sxml surflets/surflet-sxml-interface
   (open scheme-with-scsh		;error,receive
-	(subset surflets/my-input-fields
-		(*input-field-trigger* input-field-html-tree))
-	surflets/sxml
-	(subset sxml-tree-trans (pre-post-order)))
+	(subset surflets/my-input-fields (input-field-html-tree))
+	(subset surflets/internal-input-fields 
+		(*input-field-trigger* 
+		 make-sxml-input-field))
+	surflets/utilities
+	(subset srfi-1 (make-list))
+	 surflets/sxml)
   (files surflet-sxml))