anchor.diff:  ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
   
   ;;;  (c) copyright 1998,1999,2000,2001 by Michael McDonald (mikemac@mikemac.com)
  -;;;  (c) copyright 2000 by 
  +;;;  (c) copyright 2000 by
   ;;;           Robert Strandh (strandh@labri.u-bordeaux.fr)
  -;;;  (c) copyright 2001 by 
  +;;;  (c) copyright 2001 by
   ;;;           Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
   ;;;           Lionel Salabartan (salabart@emi.u-bordeaux.fr)
  -;;;           Alexey Dejneka (adejneka@comail.ru)
  +;;;  (c) copyright 2001, 2002 by Alexey Dejneka (adejneka@comail.ru)
   
   ;;; This library is free software; you can redistribute it and/or
   ;;; modify it under the terms of the GNU Library General Public
  
positive.code: ;;; - Redo setf*-output-record-position, extent recomputation for
  ;;;   compound records
  ;;; - How to deal with mixing of positioning/modifying?
  ;;; - When DRAWING-P is NIL, should stream cursor move? 
  ;;; - OUTPUT-RECORD is a protocol class, it should not have any slots/methods.
  
  (in-package :CLIM-INTERNALS)
  
negative.code:                          (bounding-rectangle* record))))
      (call-next-method)
      (with-slots (parent x1 y1 x2 y2) record
        (when (and parent (not (region-equal old-rectangle record)))
          (recompute-extent-for-changed-child parent record x1 y1 x2 y2)))))
  
  
  