[mcclim-cvs] CVS mcclim/Examples

[tmoore]

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory clnet:/tmp/cvs-serv11856

Modified Files:
	dragndrop-translator.lisp 
Log Message:
Remove some debugging code that breaks everything

--- /project/mcclim/cvsroot/mcclim/Examples/dragndrop-translator.lisp	2006/03/13 11:24:01	1.2
+++ /project/mcclim/cvsroot/mcclim/Examples/dragndrop-translator.lisp	2006/03/13 17:06:08	1.3
@@ -80,12 +80,7 @@
     (setf (color shape) (cdr (nth elt *color-alist*)))))
 
 (define-drag-and-drop-translator com-drop-color
-    (rect command rect drag-test
-     :tester ((destination-object event)
-	      (when destination-object
-		(break))
-	      event
-	      t))
+    (rect command rect drag-test)
     (object destination-object)
   (if (eq object destination-object)
       `(com-set-random-color ,object)