hi,
This example is actually based on
http://www.mail-archive.com/[email protected]/msg01484.html
(defun login-page (k)
(make-instance
'composite
:widgets
(list (make-instance
'login-maybe
:on-login
(lambda (login-widget credentials-obj)
(with-slots (email password) credentials-obj
(if (check-credentials email password)
credentials-obj
(values nil "Wrong password. Try again."))))))))
Ok, I've managed to get the whole thing working except function 'check-
credentials'
I've written something like this
(defun check-credentials (email password)
(and (equal email "[email protected]")
(equal password "123")))
However this part doesn't work. Returning t makes the login
authenticated.
Thanks...
--
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.
