Quickform : satisfies don't display error message

[Fred]

Hi,

in the following example, the satisfies function defined
in the quickform widget is called but the error message
is not displayed.

If i use the satisfies function from the defview, there is no problem.
Maybe i do something wrong ?

(defview qfview (:type form
                       :persistp nil)
  (name :requiredp t
        :required-indicator nil
        :label "Name"))

(defun qfs (w o)
  (values nil '((name . "QF Satisfies error"))))

(defun make-page ()
  (let ((qf (make-quickform 'qfview
                            :satisfies #'qfs)))
    (setf (widget-children qf)
           (make-widget
            (lambda (&rest args)
              (declare (ignore args))                                                                                                                                                                                                                                            
              (with-html (:p "Children")))))
    qf))


;; Define callback function to initialize new sessions                                                                                                                                                                                                                         
(defun init-user-session (root)
  (setf (widget-children root)
        (make-page)))


Thanks.

--
Fred

[o_z]

Either fix this error or use working case please.

пятница, 17 октября 2014 г., 13:06:42 UTC+3 пользователь Fred написал: