Either fix this error or use working case please. пятница, 17 октября 2014 г., 13:06:42 UTC+3 пользователь 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 >
-- 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.
