anchor.diff:        (activate-callback pane (gadget-client pane) (gadget-id pane))
         (setf pressedp nil)
         (dispatch-repaint pane +everywhere+))))
  -
  -(defun draw-engraved-label* (pane x1 y1 x2 y2)
  -  (draw-label* pane (1+ x1) (1+ y1) (1+ x2) (1+ y2) :ink *3d-light-color*)
  -  (draw-label* pane x1 y1 x2 y2 :ink *3d-dark-color*))
   
   (defmethod handle-repaint ((pane push-button-pane) region)
     (declare (ignore region))
  
positive.code:                   ;; Giving the text-style here shouldn't be neccessary --GB
                    :text-style (pane-text-style pane)
                    :ink ink))))
  
  ;;;; ------------------------------------------------------------------------------------------
  ;;;;
  ;;;;  Drawing Utilities for Concrete Gadgets
  ;;;;
  
  ;;; 3D-ish Look
  
  
negative.code:          (h (* n (generic-list-pane-item-height pane))))
      (make-space-requirement :width w     :height h
                              :min-width w :min-height h
                              :max-width +fill+ :max-height +fill+)))
  
  (defmethod allocate-space ((pane generic-list-pane) w h)
    (resize-sheet pane w h))
  