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
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/d/optout.
