Quickform : satisfies don't display error message

25 views
Skip to first unread message

Fred

unread,
Oct 17, 2014, 6:06:42 AM10/17/14
to webl...@googlegroups.com
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

unread,
Oct 27, 2014, 4:11:38 AM10/27/14
to webl...@googlegroups.com
Either fix this error or use working case please.

пятница, 17 октября 2014 г., 13:06:42 UTC+3 пользователь Fred написал:
Reply all
Reply to author
Forward
0 new messages