Bug fix

diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index 2e6c656f141bdab9215bba98e367798763323fb8..d796fd79be2d739d1672105129e3e37db6051651 100644 (file)
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -61,7 +61,7 @@ (defvar gtk-xpm
 (defvar *target-type-text* 80)
 (defvar *target-type-image* 81)
 
 (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*)))
   (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 @@ (defun create-layout (width height)
     (signal-connect button 'drag-data-received
      #'(lambda (context x y selection target-type time)
         (declare (ignore context x y time))
     (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) 
         (when (= target-type *target-type-text*)
           (setf 
            (button-label button)