anchor.diff:           (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 h)))
  +                            :max-width +fill+ :max-height +fill+)))
   
   (defmethod allocate-space ((pane generic-list-pane) w h)
     (resize-sheet pane w h))
  
positive.code:       (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))
  
negative.code:                         ;; immediate-sheet-input-mixin
                          ;; immediate-repainting-mixin
  			basic-pane
                          gadget)
    ())
                          
  
  
  ;; Where is this standard-gadget from? --GB
  