Looking for a working form with radio buttons example.

[aykaramba]

I looked at all the tutorials with radio / check boxes and I cannot find an example of creating forms with radio buttons that works. I have the following sample for reference:

(let* ((form (create-form body ))
       (rd1 form)
        (btn (create-form-element form :submit )))

  (create-form-element rd1 :radio :name "one" :class "w3-padding w3-margin w3-radio")
  (create-label rd1 :content "First Choice" :label-for rd1)

  (create-form-element rd1 :radio :name "two" :class "w3-padding w3-margin w3-radio")
  (create-label rd1 :content "Second Choice" :label-for rd1)

  (set-on-click form
                (lambda (obj)
			(create-div form :content (value form "????")))))

Details:

1. So far I have pretty much everything wrong.
2. I am not sure how the value for each radio button is set.
3. The manuals say that I need to create the form and radio buttons as children of parent objects, there are some samples in the tutorials but i am not sure how create-as-child relates to a form.
4. I'm not sure how to capture the radio-value of the form.

So far I have used create-form-elements without a form and just grabbed values of whatever field I needed and that has been fine. But radio buttons (and checkboxes) are stumping me.

Any links that I can review?

Thanks.

[aykaramba]

After troubleshooting, it turned out that the issue was caused with my something on my system interfering with CLOG. A package resulted in a situation where CLOG was not emitting the ' :name "thisname" ' property and resulted in two issues:

• Radio buttons would both be selected (as opposed to either or) because they did not have identical "name" properties set.
• I could not query the radio-value of the radio buttons.

The solution was to find the problem package in my ~/common-lisp folder, remove it, and reload my app.

Here is a sample working radio button form similar to the one in Tutorial 09 for future reference:

  (let* (
         ;; test form
         (f1 (create-form parent  ))
         
         ;; radio button 1
         (rd1  (create-form-element f1 :radio :name "radioselector" :value 100  :class "w3-radio"))
         (lbl1  (create-label f1 :content "Radio button 1" :label-for rd1 ))

         ;; radio button 2
         (rd2  (create-form-element f1 :radio :name "radioselector" :value 200  :class "w3-radio"))
         (lbl2  (create-label f1 :content "Radio button 2" :label-for rd2))

         ;; submit button
         (btn1 (create-form-element f1 :submit ) )

         )

         (set-on-click btn1 
                       (lambda (obj)
                         (print (radio-value f1 "radioselector"))
                         )))
                         

I hope this is a helpful note for someone in the future.