From: espen <espen>
Date: Mon, 13 Feb 2006 20:29:37 +0000 (+0000)
Subject: Bug fix
X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/0beedfe6f458b85521879ff012cb74501d963bcd

Bug fix
---

diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index 2e6c656..d796fd7 100644
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -61,7 +61,7 @@
 (defvar *target-type-text* 80)
 (defvar *target-type-image* 81)
 
-(setq from-image 
+(defvar from-image 
   (list
    (make-instance 'target-entry :target "text/plain" :id *target-type-text*)
    (make-instance 'target-entry :target "image/png" :id *target-type-image*)))
@@ -123,7 +123,6 @@
     (signal-connect button 'drag-data-received
      #'(lambda (context x y selection target-type time)
 	 (declare (ignore context x y time))
-	 (print 'her)
 	 (when (= target-type *target-type-text*)
 	   (setf 
 	    (button-label button)