anchor.diff:  
   (defmethod repaint-sheet ((pane push-button-pane) region)
     (declare (ignore region))
  -  (let ((text (gadget-label pane))
  -	(region (sheet-region pane)))
  -    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* region)
  -      (setf x2 (- x2 x1 1)
  -	    x1 1
  -	    y2 (- y2 y1 1)
  -	    y1 1)
  -      (display-gadget-background pane x1 y1 x2 y2)
  +  (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region pane))
  +    (let ((w (- x2 x1))
  +	  (h (- y2 y1)))
  +      (display-gadget-background pane 1 1 (1- w) (1- h))
         (if (push-button-show-as-default-p pane)
  -	  (draw-edges-lines* pane x2 y2 x1 y1)
  -	  (draw-edges-lines* pane x1 y1 x2 y2))
  -      (draw-text* pane text
  -		  (round (- x2 x1) 2)
  -		  (round (- y2 y1) 2)
  -		  :align-x :center
  -		  :align-y :center))))
  -
  +	  (draw-edges-lines* pane (1- w) (1- h) 1 1)
  +	  (draw-edges-lines* pane 1 1 (1- w) (1- h)))
  +      (draw-text* pane (gadget-label pane) (round w 2) (round h 2)
  +		  :align-x :center :align-y :center))))
   
   ;;
   ;; TOGGLE-BUTTON gadget
  
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:    (height :type integer
  	   :initarg :height
  	   :reader text-editor-height)))
  
  (defmethod compute-space ((pane text-editor-pane))
    (setf (pane-space-requirement pane)
  