X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/a4e6154d961ff4b606aa534bd4e1570565cab351..f9b119564f7d0c0d352fa1b13be5ef5b5fb8b872:/src/standard-wrappers.lisp

diff --git a/src/standard-wrappers.lisp b/src/standard-wrappers.lisp
index e9c0b48..43151ca 100644
--- a/src/standard-wrappers.lisp
+++ b/src/standard-wrappers.lisp
@@ -40,23 +40,37 @@
 	    (<ucw:a :action (call-display self object link)
 		    (call-next-method)))))))
 
-
-
 ;;; wrap-a-form
 (deflayer wrap-form)
 
-(defdisplay ((description t) (button (eql 'standard-form-buttons)))
-  (<ucw:submit :action (ok self)
-	       :value "Ok."))
+(define-layered-class description
+  :in-layer wrap-form ()
+  ((form-buttons :initarg :form-buttons :initform nil :special t :accessor form-buttons)))
+
+
+(defdisplay ((description (eql 'standard-form-buttons)) description-object)	    
+  (macrolet ((submit (&key action value )
+	       `(<ucw::simple-submit
+		 :action (funcall ,action)
+		 
+		 (<:as-html ,value))))
+    (loop for button in (form-buttons description-object)
+	 do 
+	 (let ((button button))
+	   (with-properties (button)
+	     (let ((action (.get :action)))
+	       (submit :value (.get :value)
+		       :action action)))))))
+
+
 
-(defdisplay :in-layer wrap-form :around (object description)
+(defdisplay :in-layer wrap-form :around (description object)
   (<ucw:form
    :action (refresh-component self)
    (with-inactive-layers (wrap-form)
 
      (call-next-method)
-     ;(display* 'standard-form-buttons)
-     )))
+     (display-attribute 'standard-form-buttons description))))
 
 ;;;; wrap a DIV