diff options
| author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2010-07-28 10:12:45 (GMT) |
|---|---|---|
| committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2010-07-28 10:12:45 (GMT) |
| commit | 9db3a0297f8397768c80481513009756f318037f (patch) | |
| tree | ca63e2ac4af9ce4457030a235382aca466fbe0ba | |
| parent | ad9a547e83fda8c9732bc775e70d9aa39f7551a1 (diff) | |
| download | tkdnd-9db3a0297f8397768c80481513009756f318037f.zip tkdnd-9db3a0297f8397768c80481513009756f318037f.tar.gz tkdnd-9db3a0297f8397768c80481513009756f318037f.tar.bz2 | |
Fixed bug 2169256
| -rw-r--r-- | Changelog | 3 | ||||
| -rw-r--r-- | library/tkdnd_unix.tcl | 4 | ||||
| -rw-r--r-- | library/tkdnd_windows.tcl | 4 |
3 files changed, 7 insertions, 4 deletions
@@ -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]\} \ |