anchor.diff:  		      :initarg :current-selection
   		      :accessor radio-box-current-selection)))
   
  -(defclass clx-radio-box-pane (radio-box-pane) ())
  -
   (defmethod (setf radio-box-current-selection) :before (button (pane radio-box-pane))
     (declare (ignore button))
     (let ((old-button (radio-box-current-selection pane)))
  
positive.code:     ;; ACTIVATE-GADGET after creating a gadget?
      :initform t
      :reader gadget-active-p)
     (armed :initform nil) ))
  
  (defun gadgetp (object)
    (typep object 'gadget))
  
negative.code: 		      :initarg :show-as-default-p
  		      :accessor push-button-show-as-default-p)))
  
  (defmethod handle-event ((pane push-button-pane) (event pointer-enter-event))
    (with-slots (armed) pane
      (unless armed
  