[Bese-devel] <:select

[Clinton Ebadi]

George Tasso <getasso at gmail.com> writes:

> (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)

replace <:select with <ucw:select with <ucw:option tags as children.
-- 
                     How can you accept social supression                      
                      This weak state of mind in our time                      
                        I demand release from hypocrisy                        
                 I'd rather die than be held down, forced down