anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.58 2002/02/22 14:31:18 gilbert Exp $
  +;;; $Id: panes.lisp,v 1.59 2002/02/22 19:11:01 gilbert Exp $
   
   (in-package :CLIM-INTERNALS)
   
  
positive.code:                         (- (- x2 right) (+ x1 left))
                          (- (- y2 bottom) (+ y1 top)))))))
               
  
  (defun curry (fun &rest args)
    #'(lambda (&rest more)
        (apply fun (append args more))))
  
  (defmethod draw-design (medium (design rectangle))
    (multiple-value-call #'draw-rectangle* medium (rectangle-edges* design)))
  
  
negative.code:    (compose-space (content-pane content)))
   
   (defmethod compose-space ((box xbox-pane))
     (with-slots (contents major-spacing) box
       (loop
           for content in contents
           for sr = (content-sr* box content)
  