> > 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??
Do you need a (yield (make-main-page)) as the last item in the flow? > ;; 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 -~----------~----~----~----~------~----~------~--~---
