anchor.diff:  ;;; Library General Public License for more details.
   ;;;
   ;;; You should have received a copy of the GNU Library General Public
  -;;; License along with this library; if not, write to the 
  -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  +;;; License along with this library; if not, write to the
  +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
   (in-package :clim-internals)
  
positive.code: 		   do (return-from find-dest-translator translator))
  	     nil)
  	   (do-feedback (window x y state)
  	     (funcall feedback-fn frame from-presentation window
  			initial-x initial-y x y state))
  	   (do-hilite (presentation window state)
  	     (funcall hilite-fn frame presentation window state))
  	   (last-window ()
  	     (event-sheet last-event))
  	   (last-x ()
  	     (pointer-event-x last-event))
  	   (last-y ()
  	     (pointer-event-y last-event)))
        ;; :highlight nil will cause the presentation that is the source of the
        ;; dragged object to be unhighlighted initially.
        (block do-tracking
  
negative.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2000 by
  ;;;           Iban Hatchondo (hatchond@emi.u-bordeaux.fr)
  ;;;           Julien Boninfante (boninfan@emi.u-bordeaux.fr)
  ;;;  (c) copyright 2000, 2014 by
  ;;;           Robert Strandh (robert.strandh@gmail.com)
  ;;;  (c) copyright 2004 by
  ;;;           Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
  