anchor.diff:     :background *3d-normal-color*))
   
   (defmethod initialize-instance :after ((pane radio-box-pane)
  -                                       &key choices current-selection orientation &allow-other-keys)
  +                                       &key choices current-selection orientation active &allow-other-keys)
     (setf (box-layout-orientation pane) orientation)
     (setf (gadget-value pane) current-selection)
     (let ((children
  
positive.code:                 (not (null (gadget-value c))))
        (setf (gadget-value c :invoke-callback invoke-callback) (eq c button)) )))
  
  ;; check-box
  
  (defclass check-box-pane (check-box rack-layout-mixin sheet-multiple-child-mixin basic-pane)
  
negative.code:                      (setf (gadget-client c) pane)
                       c))
                   choices)))
      (mapc (curry #'sheet-adopt-child pane) children))
    (unless active
      (deactivate-gadget pane)))
  
  (defmethod (setf gadget-value) :after (button (radio-box radio-box-pane) &key invoke-callback)
    ;; this is silly, but works ...
  