From 9db3a0297f8397768c80481513009756f318037f Mon Sep 17 00:00:00 2001
From: petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e>
Date: Wed, 28 Jul 2010 10:12:45 +0000
Subject: Fixed bug 2169256

---
 Changelog                 | 3 +++
 library/tkdnd_unix.tcl    | 4 ++--
 library/tkdnd_windows.tcl | 4 ++--
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Changelog b/Changelog
index 54e95b2..41a2723 100644
--- a/Changelog
+++ b/Changelog
@@ -1,4 +1,7 @@
 2010-07-28  Petasis George  <petasis@iit.demokritos.gr>
+        * library/tkdnd_unix.tcl:
+        * library/tkdnd_windows.tcl: Fixed bug 2169256.
+
         * library/tkdnd.tcl: Fixed bug 2486830.
 
 2010-06-16  Petasis George  <petasis@iit.demokritos.gr>
diff --git a/library/tkdnd_unix.tcl b/library/tkdnd_unix.tcl
index c66b349..386dab7 100644
--- a/library/tkdnd_unix.tcl
+++ b/library/tkdnd_unix.tcl
@@ -272,7 +272,7 @@ proc xdnd::_HandleXdndDrop { time } {
         %ST  \{$_typelist\}    %TT \{$_types\} \
         %A   $_action          %a \{$_actionlist\} \
         %b   \{$_pressedkeys\} %m \{$_pressedkeys\} \
-        %D   \{$data\}         %e <<Drop:$type>> \
+        %D   [list $data]      %e <<Drop:$type>> \
         %L   \{$_typelist\}    %% % \
         %t   \{$_typelist\}    %T  \{[lindex $_common_drag_source_types 0]\} \
         %c   \{$_codelist\}    %C  \{[lindex $_codelist 0]\} \
@@ -289,7 +289,7 @@ proc xdnd::_HandleXdndDrop { time } {
       %ST  \{$_typelist\}    %TT \{$_types\} \
       %A   $_action          %a \{$_actionlist\} \
       %b   \{$_pressedkeys\} %m \{$_pressedkeys\} \
-      %D   \{$data\}         %e <<Drop>> \
+      %D   [list $data]      %e <<Drop>> \
       %L   \{$_typelist\}    %% % \
       %t   \{$_typelist\}    %T  \{[lindex $_common_drag_source_types 0]\} \
       %c   \{$_codelist\}    %C  \{[lindex $_codelist 0]\} \
diff --git a/library/tkdnd_windows.tcl b/library/tkdnd_windows.tcl
index 16d66f0..b7bbe8a 100644
--- a/library/tkdnd_windows.tcl
+++ b/library/tkdnd_windows.tcl
@@ -210,7 +210,7 @@ proc olednd::_HandleDrop { drop_target pressedkeys rootX rootY _type data } {
         %ST  \{$_typelist\}    %TT \{$_types\} \
         %A   $_action          %a \{$_actionlist\} \
         %b   \{$_pressedkeys\} %m \{$_pressedkeys\} \
-        %D   \{$data\}         %e <<Drop:$type>> \
+        %D   [list $data]      %e <<Drop:$type>> \
         %L   \{$_typelist\}    %% % \
         %t   \{$_typelist\}    %T \{[lindex $_common_drag_source_types 0]\} \
         %c   \{$_codelist\}    %C  \{[lindex $_codelist 0]\} \
@@ -226,7 +226,7 @@ proc olednd::_HandleDrop { drop_target pressedkeys rootX rootY _type data } {
       %ST  \{$_typelist\}    %TT \{$_types\} \
       %A   $_action          %a \{$_actionlist\} \
       %b   \{$_pressedkeys\} %m \{$_pressedkeys\} \
-      %D   \{$data\}         %e <<Drop>> \
+      %D   [list $data]      %e <<Drop>> \
       %L   \{$_typelist\}    %% % \
       %t   \{$_typelist\}    %T \{[lindex $_common_drag_source_types 0]\} \
       %c   \{$_codelist\}    %C  \{[lindex $_codelist 0]\} \
-- 
cgit v0.12