anchor.diff:    (with-slots (armed) pane
       (unless armed
         (setf armed t)
  -      (highlight-button pane)
  +      (unless (gadget-value pane)
  +	(setf (gadget-current-color pane) (gadget-highlighted-color pane))
  +	(dispatch-repaint pane (sheet-region pane)))
         (armed-callback pane (gadget-client pane) (gadget-id pane)))))
   
   (defmethod handle-event ((pane toggle-button-pane) (event pointer-exit-event))
  
positive.code:   (with-slots (armed) pane
      (unless armed
        (setf armed t)
        (highlight-button pane)
        (armed-callback pane (gadget-client pane) (gadget-id pane)))))
  
  (defmethod handle-event ((pane push-button-pane) (event pointer-exit-event))
    (with-slots (armed) pane
      (when armed
  
        (setf (push-button-show-as-default-p pane) nil)
        (unhighlight-button pane)
        (disarmed-callback pane (gadget-client pane) (gadget-id pane)))))
  
  (defmethod handle-event ((pane push-button-pane) (event pointer-button-press-event))
  