Widening panes to the enclosing column layout's width

  Hi,

I fear this is a FAQ, but...

if you look at the attached small picture, you'll notice that the two
check boxes are not exactly of the same width. I would like them all to
have the width of the widest one, in the enclosing column layout.

I've tried something like this in an interface-display : before method,
but it gives me weird sizes.

  (let ((width 0))
    (map-pane-children layout
      (lambda (pane)
	(with-geometry pane
	  (when (> %min-width% width) (setq width %min-width%)))))
    (map-pane-children layout
      (lambda (pane)
	(set-hint-table pane
	  `(:visible-min-width ,width :visible-max-width ,width)))))

Thank you!


-- 
Resistance is futile. You will be jazzimilated.

Lisp, Jazz, Aïkido: http://www.didierverna.info