anchor.diff:  	(if (or (gadget-value pane) (eql armed ':button-press))
   	    (draw-edges-lines* pane (1- x2) (1- y2) x1 y1)
   	    (draw-edges-lines* pane x1 y1 (1- x2) (1- y2)))
  -	(draw-text* pane (gadget-label pane)
  -		    (round (- x2 x1) 2)
  -		    (round (- y2 y1) 2)
  -		    :align-x :center
  -		    :align-y :center)))))
  +	(draw-label pane (gadget-label pane) (round (- x2 x1) 2) (round (- y2 y1) 2))))))
   
   
   ;;
  
positive.code: (defclass push-button (labelled-gadget-mixin action-gadget) ())
    
  (defclass push-button-pane  (push-button)
    ((show-as-default-p :type (member '(t nil))
  		      :initform nil
  		      :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
  
negative.code: (defmethod handle-event ((pane push-button-pane) (event pointer-exit-event))
    (with-slots (armed) pane
      (when armed
        (setf armed nil
  	    (gadget-current-color pane) (gadget-normal-color pane))
        (disarmed-callback pane (gadget-client pane) (gadget-id pane)))))
  
  