diff options
author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2011-03-18 13:32:28 (GMT) |
---|---|---|
committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2011-03-18 13:32:28 (GMT) |
commit | 9afa15c7129b7f6a4da77355fc428dd0a156d4ea (patch) | |
tree | 0bd1f6b5c14d56dccf2ba833a8a3420de76bc638 /library/tkdnd_unix.tcl | |
parent | 0537dcf41109ab0d500a9a958264e067e6339dc0 (diff) | |
download | tkdnd-9afa15c7129b7f6a4da77355fc428dd0a156d4ea.zip tkdnd-9afa15c7129b7f6a4da77355fc428dd0a156d4ea.tar.gz tkdnd-9afa15c7129b7f6a4da77355fc428dd0a156d4ea.tar.bz2 |
Bug fix in xdnd::_GetDroppedData.
Diffstat (limited to 'library/tkdnd_unix.tcl')
-rw-r--r-- | library/tkdnd_unix.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/tkdnd_unix.tcl b/library/tkdnd_unix.tcl index 2535245..85cf93b 100644 --- a/library/tkdnd_unix.tcl +++ b/library/tkdnd_unix.tcl @@ -307,6 +307,9 @@ proc xdnd::_HandleXdndDrop { time } { proc xdnd::_GetDroppedData { time } { variable _drop_target variable _common_drag_source_types + if {![llength $_common_drag_source_types]} { + error "no common data types between the drag source and drop target widgets" + } foreach type $_common_drag_source_types { # puts "TYPE: $type ($_drop_target)" # _get_selection $_drop_target $time $type |