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)