<br><br><div class="gmail_quote">On Thu, Jan 29, 2009 at 12:41 PM, 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">> (defmethod render :wrapping ((self new-asset-input))<br>
>   (call-next-method)<br>
>   (flet ((display-form ()<br>
>      (<ucw:form :action (call-component $component (make-instance<br>
> 'new-asset-input))<br>
>    :function (constantly t)<br>
>    (<:table :class "report"<br>
>    (<:tr<br>
>     (<:td "Quatation Ref")<br>
>     (<:td (<ucw:input :type "text" :accessor (getf  (message self)<br>
> :quotation-ref))))<br>
><br>
>    (<:tr<br>
>     (<:td "Supplier")<br>
><br>
> question is how to i make the select field associated with (getf (message self)<br>
> :supplier). I don't think there is an accessor on select ( i might be wrong)<br>
>       (<:td<br>
>        (<:select :name "supplier"<br>
>          :accessor (getf (message self) :supplier)<br>
<br>
</div>replace <:select with <ucw:select with <ucw:option tags as children.<br>
<font color="#888888">--<br>
                     </font></blockquote></div>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><br>The question is how can i make select boxes link to an object like it is done 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>thank you <br><br>George<br><br><br><br>