anchor.diff:                                      (make-rectangle* (- tx m0) (- ty a) (+ tx tw m0) (+ ty d))))
                 (draw-bordered-rectangle* pane (+ x1 bleft) (+ y1 btop) (- x2 bright) (- y2 bbottom)
                                           :style :groove))))))))
  -
  -
  -(defmethod initialize-instance :after ((pane label-pane) &key contents &allow-other-keys)
  -  (when contents
  -    (sheet-adopt-child pane (first contents))))
   
   ;;; GENERIC FUNCTIONS
   
  
positive.code: 
  ;;; LABEL PANE
  
  (defclass label-pane (multiple-child-composite-pane)
    ((label :type string
            :initarg :label
            :accessor clime:label-pane-label
  
negative.code:           (draw-text* pane (clime:label-pane-label pane)
                        tx ty)
            ;;;
            (when (sheet-child pane)
              (with-drawing-options (pane
                                     :clipping-region
                                     (region-difference
  