[Bese-devel] <:select

George Tasso getasso at gmail.com
Thu Jan 29 23:14:26 UTC 2009


On Fri, Jan 30, 2009 at 5:54 AM, Clinton Ebadi <clinton at unknownlamer.org>wrote:

> George Tasso <getasso at gmail.com> writes:
>
> >     >       (<:td
> >     >        (<:select :name "supplier"
> >     >          :accessor (getf (message self) :supplier)
> >
> >     replace <:select with <ucw:select with <ucw:option tags as children.
> >     --
> >
> > Oh Yes that is what i am doing, sorry part of the code went missing :)
> >
> > the code should reads like this
> > (<:td
> >         (<:select :name "supplier"
> >           (dolist (e supplier)
> > (<:option :value  (first e) (<as-html (second e)))
> >
> > The question is how can i make select boxes link to an object like it is
> done
> > with input text box
> >
> > consider this example
> >
> > (defmethod render (self new-asset-input)
> > (<ucw:input :type "text" :accessor (getf  (message self)  :code)))
>
> (<ucw:select :accessor (getf (message self) :code)
>  (<ucw:option :value "foo" (<:ah "printed version"))
>  (<ucw:option :value "bar" (<:ah "printed version"))
>  (<ucw:option :value "baz" (<:ah "printed version"))
>  ;; etc
>  ...)
>
> the <ucw:option :value can be an arbitrary lisp object.
>
> --
>


Ah ok,
just tested it and it work. Thank  you, thank you all.

George
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20090130/4687f2f8/attachment.html>


More information about the bese-devel mailing list