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