anchor.diff:  	     (clim-extensions:lowering ()
   	       (horizontally ()
   		 (labelling (:label "Backend")
  -		   (scrolling (:width *width* :height *height*)
  -		     (climi::bordering (:border-width *border-width*)
  -		       backend-output)))
  +		   (scrolling (:width *width* :height *height* :scroll-bar nil)
  +		     backend-output))
   		 (labelling (:label "Render")
  -		   (scrolling (:width *width* :height *height*) render-output)))))
  +		   (scrolling (:width *width* :height *height* :scroll-bar nil)
  +                     render-output)))))
   	   (spacing (:thickness 3)
   	     (clim-extensions:lowering ()
   	       (scrolling (:scroll-bar :vertical :height 200) description)))))))))
  
positive.code: 		(make-rectangle* 200 330 270 400))
  	       (clim:region-difference
  		(make-rectangle* 320 300 390 370)
  		(make-rectangle* 350 330 420 400))
  	       )
  	   )
      (with-bounding-rectangle* (min-x min-y max-x max-y)
  	cr
        (draw-rectangle* stream (- min-x 2) (- min-y 2) (+ max-x 2) (+ max-y 2) :line-thickness 4 :filled nil :ink +blue+)
  
negative.code: ;;; Clipping
  ;;;
  
  (define-drawing-test "10) Clipping region ellipse" (stream)
      "Non-rectangular clipping region. We should see grey rotated ellipse with
  limited angle drawn inside green border. This ellipse is a clipping region. Then
  we randomly drawn points on the screen which should be clipped to the grey area."
    (let ((cr (clim:make-ellipse* (/ *width* 2) (/ *height* 2)
                                  (- (/ *width* 2) 50) 100
                                  0 (- (/ *height* 2) 50)
                                  :start-angle (/ pi 8)
                                  :end-angle (* 3 (/ pi 2)))))
      (with-bounding-rectangle* (min-x min-y max-x max-y)	cr
        (draw-rectangle* stream (- min-x 10) (- min-y 10) (+ max-x 10) (+ max-y 10)
                         :line-thickness 2 :filled t :ink +green+)
        (draw-rectangle* stream min-x min-y max-x max-y
                         :line-thickness 1 :filled nil)
        (with-drawing-options (stream :clipping-region cr)
          (draw-rectangle* stream min-x min-y max-x max-y :filled t :ink +grey50+)
          (loop repeat 100
             do (clim:draw-point* stream (random *width*) (random *height*)
                                  :ink (make-random-col)
                                  :line-thickness (random 100)))))))
  
  (define-drawing-test "10) Clipping Region" (stream)
      "Various clipping regions. We should see seven blue bounding
  rectangles. Each of them host a clipping area: square, rotated rectangle,
  circle, polygon, region intersection, region union and region difference (last
  three are based on rectangles). Randomly drawn points should be clipped to these
  clipping areas. No point should be drawn outside the blue rectangles."
    (dolist (cr (list
  	       (make-rectangle* 20 20 120 120)
  	       (clim:transform-region (clim:make-rotation-transformation
  