Sorry for the repost but I only now saw I did not change the subject!
Ok a real newbie question:
In the following code I get the intial screen which takes me to the
login screen fine. The login screen fires the on-success function and
that function completes successfully but does not replace the the login
widget. What am I doing wrong??
;; Define callback function to initialize new sessions
(defun init-user-session (comp)
(with-flow comp
(yield #'initial-page)
(setf (widget-prefix-fn comp) #'render-header)
(yield (make-instance 'login
:on-login #'authenticate-user
:on-success #'layout-main-page
))))
(defun make-main-page ()
"Lays out the main page. It consists of a FLASH widget for showing
initial message, and a NAVIGATION widget with panes that hold
employees page and companies page."
(make-instance 'composite :widgets
(list
(make-instance 'flash :messages
(list "Welcome to weblocks demo - a
technology demonstration for a
continuations-based web
framework written in Common
Lisp."))
(make-navigation 'main-menu
'employees (make-employees-page)
'companies (make-companies-page)))))
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
