[Bese-devel] checkboxes

[Vladimir Sekissov]

svg> (defmethod coerce-client-value ((e checkbox-element) value)
svg>   (unless (stringp value) ; value unchanged, return NIL
svg>     (when (call-next-method)
svg>       (setf (slot-value e 'client-value) t)
svg>       t)))

Sorry, typo:

(defmethod coerce-client-value ((e checkbox-element) value)
   (when (and (stringp value)     ; when value unchanged, return NIL
              (call-next-method))
       (setf (slot-value e 'client-value) t)
       t))

Best Regards,
Vladimir Sekissov