[Bese-devel] <:select

[George Tasso]

On Thu, Jan 29, 2009 at 8:14 AM, <burban at opopop.net> wrote:

> George Tasso <getasso at gmail.com> writes:
>
> > Hello all,
> >
> > I am attempting ucw-core demo. I am modifying   the  simple form example,
> >
> > I have added several more fields some of which are drop down
> > (<select><optiion></option></select>).
> >
> > Just wondering if somebody could help  with a pointer on how to handle
> > select list in a form.
> >
>
> <:select works like all other <:xxx tags, that is, it is HTML, but with a
> Lispy syntax. It is all explained in the yaclml package, so it's not even
> UCW per se.


Sorry my poor way of asking question. Below is a sample code from ucw-core
demo.lisp.

>
>
> Then there is <ucw:select and other <ucw:xxx friends, which are UCW
> extensions. Demos/samples are a bit missing here, the only ones I
> can propose are in my own code to be seen here:
> http://lisp.opopop.net/blog/myblog.ucw
> or
> http://lisp.opopop.net/forum/public.ucw
>
> Source code available on that same site:
> http://lisp.opopop.net/files/lisp-app-1.3.tgz


Thanks i'll take a look at it.

>
>
> This is the demo.lisp code from ucw-core that i modify

(defmethod render :wrapping ((self new-asset-input))
  (call-next-method)
  (flet ((display-form ()
     (<ucw:form :action (call-component $component (make-instance
'new-asset-input))
   :function (constantly t)
   (<:table :class "report"
   (<:tr
    (<:td "Quatation Ref")
    (<:td (<ucw:input :type "text" :accessor (getf  (message self)
:quotation-ref))))

   (<:tr
    (<:td "Supplier")

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)
      (<:td
       (<:select :name "supplier"
         :accessor (getf (message self) :supplier)

thanks

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