hi worlds, im leraning weblocks trying to build an open source e-comerce web application on top of weblocks and gbbopen, im trying build ater the login, some widgets specific to the role in this way (defun init-user-session (comp) ;(init-slime-debugging) (setf (webapp-session-value 'my-session) (ks-init-session)) (setf (composite-widgets comp) (list (make-main-site))))
(defun make-main-site () (make-instance 'composite :widgets (list (make-counter) (make-navigation 'navigation 'Tienda (make-catalog-widget) 'Clientes (make-instance 'login-maybe :on-login #'check-login :child-widget #'make-clients-widget) )))) (defun make-clients-widget () (let ((role (role-of (is-active-of (webapp-session-value 'my-session))))) (if (equal "client" role) (make-instance 'composite :widgets (list (make-widget (role-of (is-active-of (webapp-session-value 'my-session))))))) (if (equal "admin" role) ( make-admin-widget)))) and i get this error unbound-slot: The slot weblocks::base-uri is unbound in the object #<weblocks:navigation banban::navigation-admin> where is my error, must i use reset-navigation-widgets ? 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.
