Works for me.
What is LOGIN-FORM supposed to do (exactly)?
Try tracing ANSWER.
Also, please run this self-contained test and play with it:
(asdf:oos 'asdf:load-op :weblocks)
(unless (find-package :weblocks-test)
(defpackage :weblocks-test (:use :cl :weblocks :cl-who :f-
underscore)))
(in-package :weblocks-test)
(defwebapp weblocks-test :prefix "/")
(defview pledge-miniform-view (:type form
:persistp nil
:buttons '((:submit . "Pledge"))
:caption ""
:focusp t
:satisfies
(lambda/cc (&key person-id &allow-other-
keys)
(declare (ignore person-id))
(if (do-page (let ((comp (make-instance
'composite)))
(setf (composite-
widgets comp)
(list (f_%
(render-link (f_% (answer comp t)) "Yes :)"))
(f_%
(render-link (f_% (answer comp nil)) "No :("))))
comp))
(format t "yup~%")
(format t "no~%"))))
(person-id :present-as hidden
:writer (lambda (val obj)
(declare (ignore val))
(setf (slot-value obj 'person-id) 7)))
(proposal-id :hidep t)
(amount :requiredp t
:present-as input
:label "$"
:parse-as float))
(defun mini-pledger (proposal-id)
(make-quickform 'pledge-miniform-view))
(defun init-user-session (comp)
(setf (composite-widgets comp)
(list (mini-pledger 5))))
> I have the format t "here" and format t "there" in there just to
> debug.
Don't forget the trailing ~% or you might not see what would
be there else (flushing issue).
Leslie
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
