<div class="gmail_quote">On Fri, Jan 30, 2009 at 5:54 AM, Clinton Ebadi <span dir="ltr"><<a href="mailto:clinton@unknownlamer.org">clinton@unknownlamer.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">George Tasso <<a href="mailto:getasso@gmail.com">getasso@gmail.com</a>> writes:<br>
<br>
</div><div class="Ih2E3d">>     >       (<:td<br>
>     >        (<:select :name "supplier"<br>
>     >          :accessor (getf (message self) :supplier)<br>
><br>
>     replace <:select with <ucw:select with <ucw:option tags as children.<br>
>     --<br>
><br>
> Oh Yes that is what i am doing, sorry part of the code went missing :)<br>
><br>
> the code should reads like this<br>
> (<:td<br>
>         (<:select :name "supplier"<br>
>           (dolist (e supplier)<br>
> (<:option :value  (first e) (<as-html (second e)))<br>
><br>
> The question is how can i make select boxes link to an object like it is done<br>
> with input text box<br>
><br>
> consider this example<br>
><br>
> (defmethod render (self new-asset-input)<br>
> (<ucw:input :type "text" :accessor (getf  (message self)  :code)))<br>
<br>
</div>(<ucw:select :accessor (getf (message self) :code)<br>
  (<ucw:option :value "foo" (<:ah "printed version"))<br>
  (<ucw:option :value "bar" (<:ah "printed version"))<br>
  (<ucw:option :value "baz" (<:ah "printed version"))<br>
  ;; etc<br>
  ...)<br>
<br>
the <ucw:option :value can be an arbitrary lisp object.<br>
<font color="#888888"><br>
--<br>
                      </font></blockquote><div><br>Ah ok,<br>just tested it and it work. Thank  you, thank you all.<br><br>George <br></div></div>