anchor.diff:  ; mixins (as opposed to a hodge-podge of sensible mixins :]) - BTS
   ;
   ; This especially applies to colour and event management :\
  +;
  +; TODO: move the hardcoded color-settings into proper defaults
   ;
   ;;;
   
  
positive.code:                                        :border-width 1)))
              ;; draw thumb
              (with-bounding-rectangle* (x1 y1 x2 y2) (gadget-thumb-region pane)
                 (draw-up-box pane x1 y1 x2 y2 (effective-gadget-foreground pane))
                 #+nil
                 (let ((x2 (- x2 1)))
                    (draw-rectangle* pane x1 y1 x2 y2 :ink (effective-gadget-foreground pane))
                    ;; white outline
                    (draw-line* pane x1 y2 x1 y1 :ink +white+)
                    (draw-line* pane x2 y1 x1 y1 :ink +white+)
                    ;; now for the gray inline
                    (let ((x1 (+ x1 2))
                          (y1 (+ y1 2))
                          (x2 (- x2 1))
                          (y2 (- y2 1)))
                      (draw-line* pane x1 y2 (+ x2 1) y2 :ink +gray58+)
                      (draw-line* pane x2 y1 x2 (+ y2 1) :ink +gray58+))
                    ;; now for the black outline
                    (draw-line* pane x1 y2 (+ x2 1) y2 :ink +black+)
                    (draw-line* pane x2 y1 x2 (+ y2 1) :ink +black+))
                  ;; draw decoration in the thumb
                  (let* ((middle (/ (+ y1 y2) 2))
                         (y1     (- middle 1))
                         (y2     middle)
                         (x1     (+ x1 2))
                         (x2     (- x2 3)))
                    (draw-line* pane x1 y1 x2 y1       :ink +gray58+)
                    (draw-line* pane x1 y2 (+ x2 1) y2 :ink +white+)
                    (draw-line* pane x2 y1 x2 (+ y2 1) :ink +white+)))))))))
  
  ; Scrollbar
  
  
negative.code:    (drag-delta
       :initform 0)
     (bounce-value
       :initform 0)
     (thumb-size
       :initarg  :thumb-size
       :initform 1/4
       :accessor gadget-thumb-size))
    (:default-initargs
      :border-style :inset
      :border-width 1))
  
  (defmethod compose-space ((pane pixie-slider-pane) &key width height)
    (declare (ignore width height))
    (if (eq (gadget-orientation pane) :vertical)
        (make-space-requirement :min-width   *scrollbar-thickness*
  			      :width       *scrollbar-thickness*
                                :max-width   +fill+
  			      :min-height  (* 2 *scrollbar-thickness*)
  			      :height      (* 4 *scrollbar-thickness*)
                                :max-height  +fill+)
        (make-space-requirement :min-height  *scrollbar-thickness*
  			      :height      *scrollbar-thickness* 
  			      :max-height  +fill+
  			      :min-width   (* 2 *scrollbar-thickness*)
  			      :width       (* 4 *scrollbar-thickness*)
                                :max-width   +fill+)))
  
  (defmethod vertical-gadget-orientation-transformation ((pane gadget))
    (ecase (gadget-orientation pane)
  