<div class="gmail_quote"><div class="Ih2E3d">On Thu, Jan 29, 2009 at 8:14 AM,  <span dir="ltr"><<a href="mailto:burban@opopop.net" target="_blank">burban@opopop.net</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>George Tasso <<a href="mailto:getasso@gmail.com" target="_blank">getasso@gmail.com</a>> writes:<br>
<br>
> Hello all,<br>
><br>
> I am attempting ucw-core demo. I am modifying   the  simple form example,<br>
><br>
> I have added several more fields some of which are drop down<br>
> (<select><optiion></option></select>).<br>
><br>
> Just wondering if somebody could help  with a pointer on how to handle<br>
> select list in a form.<br>
><br>
<br>
</div><:select works like all other <:xxx tags, that is, it is HTML, but with a<br>
Lispy syntax. It is all explained in the yaclml package, so it's not even<br>
UCW per se.</blockquote></div><div><br>Sorry my poor way of asking question. Below is a sample code from ucw-core demo.lisp. <br></div><div class="Ih2E3d"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

<br>
<br>
Then there is <ucw:select and other <ucw:xxx friends, which are UCW<br>
extensions. Demos/samples are a bit missing here, the only ones I<br>
can propose are in my own code to be seen here:<br>
<a href="http://lisp.opopop.net/blog/myblog.ucw" target="_blank">http://lisp.opopop.net/blog/myblog.ucw</a><br>
or<br>
<a href="http://lisp.opopop.net/forum/public.ucw" target="_blank">http://lisp.opopop.net/forum/public.ucw</a><br>
<br>
Source code available on that same site:<br>
<a href="http://lisp.opopop.net/files/lisp-app-1.3.tgz" target="_blank">http://lisp.opopop.net/files/lisp-app-1.3.tgz</a></blockquote></div><div><br>Thanks i'll take a look at it. <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

<br>
<br>
</blockquote></div>This is the demo.lisp code from ucw-core that i modify <br><br>(defmethod render :wrapping ((self new-asset-input))<br>  (call-next-method)<br>  (flet ((display-form ()<br>     (<ucw:form :action (call-component $component (make-instance '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) :quotation-ref))))<br>

<br>   (<:tr<br>    (<:td "Supplier")<br>   <br>question is how
to i make the select field associated with (getf (message self)
: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>thanks<br><br>George