Dear Weblocks hackers, attached you'll find a little patch to the checkboxes presentation code that fixes the presentation of intermediate values. Without this patch, intermediate values for checkboxes presentations are lost.
Bye, Andrea. -- Software vuol dire conoscenza! Per questo dev'essere un bene comune! Usa software libero e contribisci a cambiare il mondo: http://www.softwarelibero.it http://www.fsf.org http://www.gnu.org
-- You received this message because you are subscribed to the Google Groups "weblocks" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/weblocks?hl=en.
# HG changeset patch # User Andrea Russo <[email protected]> # Date 1309178768 -7200 # Node ID 04bb7a4496d32a6bde6a21936ab2576138a134db # Parent 43bb10bb70f08ce8158cd574995e308761a22434 Correctly presents intermediate values in checkboxes presentations. diff -r 43bb10bb70f0 -r 04bb7a4496d3 src/views/types/presentations/checkboxes.lisp --- a/src/views/types/presentations/checkboxes.lisp Fri May 27 16:29:41 2011 +0200 +++ b/src/views/types/presentations/checkboxes.lisp Mon Jun 27 14:46:08 2011 +0200 @@ -45,11 +45,12 @@ (multiple-value-bind (intermediate-value intermediate-value-p) (form-field-intermediate-value field intermediate-values) (render-checkboxes (view-field-slot-name field) - (obtain-presentation-choices presentation obj) - :selected-values (if intermediate-value-p - intermediate-value - (when value - (mapcar (compose (curry-after #'intern :keyword) #'string-upcase) value)))))) + (obtain-presentation-choices presentation obj) + :selected-values (when (or value intermediate-value) + (mapcar (compose (curry-after #'intern :keyword) #'string-upcase) + (if intermediate-value-p + intermediate-value + value)))))) (defmethod render-view-field-value (value (presentation checkboxes-presentation) field view widget obj &rest args
