From 9e8c84c157bf0e5e3d0198981cfd14ce4736b01a Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Mon, 13 Feb 2006 20:29:37 +0000
Subject: [PATCH] Bug fix

---
 examples/testdnd.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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) 
-- 
2.11.0