Quickform : render-widget system broken ?

[Fred]

Hi,

After an update of weblocks, i found the render-widget system that
loop over the childrens of the root widget, broken in the Dataform widget.

In my code, i put some childrens in the Quickform widget
(Quickform inherits from Dataform).

On 4 Jul 2013, appears a update of dataform code
that cause the trouble :
https://github.com/skypher/weblocks/commit/af617413a1ca22e6891b34b93fa81e936209d702

Why a new "widget-children" method in this class (Dataform) that breaks the render-widget engine ?

Thanks.

Best Regards
--
Fred

[o_z]

четверг, 16 октября 2014 г., 23:46:36 UTC+3 пользователь Fred написал:

This is needed to add widgets as view fields for dataform.

There is a bug, but it doesn't break render-widget system. 

[Fred]

Hello,

I apologize, my previous post is not accurate enough.

Quickform is a widget, so it should have childrens.

But in the following example render a quickform
with childrens do not seems to works :

The children is never rendered.


(defview qfview (:type form
                       :persistp nil)
  (name :requiredp t
        :required-indicator nil
        :label "Name"))

(defun make-page ()
  (let ((qf (make-quickform 'qfview)))
    (setf (widget-children qf)       
           (make-widget
            (lambda (&rest args)
              (declare (ignore args))
              (with-html (:p "Children)))))
    qf))
            
(defun init-user-session (root)
  (setf (widget-children root)
        (make-page)))

Thanks.

[o_z]

I haven't used children for dataform widget.

Only when using widget as form field.

So you can either use widget-presentation for child widgets or override widget-children

пятница, 17 октября 2014 г., 12:44:21 UTC+3 пользователь Fred написал: