Slobodan Milnović wrote:
> Hi Leslie,
>
> You mean I should use something like
>
> (defun init-user-session (comp)
> (autentikacija comp))
>
> I have tried
>
> :on-success 'layout
>
> and in layout something like
>
> (defun layout (widget authobject)
> (declare (ignore widget))
> (stuff...)
>
> But in that case I get asked for user/pass, and it lets me in upon the
> success, but then I get only an blank page.
One simple solution that works well is creating your own navigation that
modifies the
standard navigation widget in this way:
(defmethod render-widget-body ((navigation protected-navigation) &rest args)
(if (authenticatedp)
(call-next-method)
(render-widget (login-widget-of navigation)))
I have a ready-made widget for this. Let me know if you want it.
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.
