Bug #25 fixed

petasis · Feb 3, 2019 · b58f000 · b58f000
1 parent 1fc930e
commit b58f000
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/Changelog b/Changelog
@@ -1,6 +1,8 @@
 2019-02-03  Petasis George  <petasis@iit.demokritos.gr>
 	* win/OleDND.h:
 	* library/tkdnd_generic.tcl:
+	* library/tkdnd_macosx.tcl:
+	* library/tkdnd_unix.tcl:
 	* library/tkdnd_windows.tcl: Provided a solution for bug #25.
 	Under Windows, the dropped data is available for the <<DropEnter>> and
 	<<DropPosition>> events.

diff --git a/library/tkdnd_macosx.tcl b/library/tkdnd_macosx.tcl
@@ -67,11 +67,12 @@ namespace eval macdnd {
 # ----------------------------------------------------------------------------
 #  Command macdnd::HandleEnter
 # ----------------------------------------------------------------------------
-proc macdnd::HandleEnter { path drag_source typelist } {
+proc macdnd::HandleEnter { path drag_source typelist { data {} } } {
   variable _pressedkeys
   variable _actionlist
   set _pressedkeys 1
   set _actionlist  { copy move link ask private }
+  ::tkdnd::generic::SetDroppedData $data
   ::tkdnd::generic::HandleEnter $path $drag_source $typelist $typelist \
            $_actionlist $_pressedkeys
 };# macdnd::HandleEnter

diff --git a/library/tkdnd_unix.tcl b/library/tkdnd_unix.tcl
@@ -60,11 +60,12 @@ namespace eval xdnd {
 # ----------------------------------------------------------------------------
 #  Command xdnd::HandleXdndEnter
 # ----------------------------------------------------------------------------
-proc xdnd::HandleXdndEnter { path drag_source typelist } {
+proc xdnd::HandleXdndEnter { path drag_source typelist { data {} } } {
   variable _pressedkeys
   variable _actionlist
   set _pressedkeys 1
   set _actionlist  { copy move link ask private }
+  ::tkdnd::generic::SetDroppedData $data
   ::tkdnd::generic::HandleEnter $path $drag_source $typelist $typelist \
            $_actionlist $_pressedkeys
 };# xdnd::HandleXdndEnter