From 99ef672e3a1e69d8d4059f10855fd5b0889b6378 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sun, 25 Nov 2012 03:58:07 +0000
Subject:  drop procs are supposed to return how they used the dropped files

svn path=/trunk/scripts/guiplugins/simple_examples/; revision=16579
---
 tkdnd-plugin.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tkdnd-plugin.tcl b/tkdnd-plugin.tcl
index 06a6e76..df8ad82 100644
--- a/tkdnd-plugin.tcl
+++ b/tkdnd-plugin.tcl
@@ -32,5 +32,6 @@ proc ::pddnd::pdtk_canvas_makeobjs {mytoplevel files x y} {
             pdsend "$mytoplevel obj $x [expr $y + ($c * 30)] $obj"
             incr c
         }
-    } 
+    }
+    return "link"
 }
-- 
cgit v1.2.1