anchor.diff:                          ;; immediate-sheet-input-mixin
                           ;; immediate-repainting-mixin
   			basic-pane
  -                        gadget
  -                        )
  -  ;; Half-baked attempt to be compatible with Lispworks. ??? -moore
  -  ;; Inherited from basic-pane with different defaults.
  -  ((foreground  :initform +black+)
  -   #+IGNORE (background  :initform +white+)  ; This is evil.. -Hefner
  -   ))
  +                        gadget)
  +  ())
  +                        
   
   
   ;; Where is this standard-gadget from? --GB
  
positive.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 h)))
  
  (defmethod allocate-space ((pane generic-list-pane) w h)
    (resize-sheet pane w h))
  
negative.code:          medium
           (polygon-points (make-rectangle* x1 y1 x2 y2))
           options))
  
  (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*))  
  
  ;;;;
  ;;;; 3D-BORDER-MIXIN Class
  