anchor.diff:    (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 menu-button-pane) (event pointer-exit-event))
     (with-slots (armed) pane
       (when armed
         (setf armed nil)
  -      (unhighlight-button pane)
         (disarmed-callback pane (gadget-client pane) (gadget-id pane)))))
   
   (defmethod handle-event ((pane menu-button-pane) (event pointer-button-press-event))
  
positive.code:       (armed-callback pane (gadget-client pane) (gadget-id pane)))
      (setf armed ':button-press)
      (setf (push-button-show-as-default-p pane) t)
      (push-highlight-button pane)))
  
  (defmethod handle-event ((pane push-button-pane) (event pointer-button-release-event))
    (with-slots (armed) pane
  
negative.code:     (when armed
        (setf armed nil)
        (if (gadget-value pane)
  	  (setf (gadget-current-color pane) (gadget-pushed-and-highlighted-color pane))
  	  (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 toggle-button-pane) (event pointer-button-press-event))
  