[Bese-devel] ucw:a & action parameters other than self

[Evrim ULU]

it seems below snippet solves the problem, don't sure if it is the best
solution in this case.

 (loop
     for i from 1 to number-of-pages
     do
     (if (eq current-page i)
         (<:as-html i " ")
         (eval `(<ucw:a :action (scroll-to-page ,self ,i)
                :id ,(format nil "page-~A" i)
                (<:as-html ,i " ")))))

>--- inside render ---
>(loop
>     for i from 1 to number-of-pages
>     do
>     (if (eq current-page i)
>         (<:as-html i " ")
>         (<ucw:a :action (scroll-to-page self i)
>             :id (format nil "page-~A" i)
>             (<:as-html i " "))))
>---- render ends ---
>
>(defaction scroll-to-page ((self pager) to-page)
> bla bla..)
>  
>