# get tkdnd r95 with subversion

	# then apply tkdnd-patch-on-r95 to that

Index: unix/TkDND_XDND.c

===================================================================

--- unix/TkDND_XDND.c	(revision 95)

+++ unix/TkDND_XDND.c	(working copy)

@@ -517,7 +517,7 @@

     ActionCopy, ActionMove, ActionLink, ActionAsk, ActionPrivate,

     refuse_drop, ActionDefault

   };

-    

+  printf("TkDND_HandleXdndDrop\n");

   if (interp == NULL) return False;

   if (XDND_DROP_TIME(xevent) != 0) {

     time = ((sizeof(Time) == 8 && XDND_DROP_TIME(xevent) < 0)

Index: CMakeLists.txt

===================================================================

--- CMakeLists.txt	(revision 95)

+++ CMakeLists.txt	(working copy)

@@ -168,7 +168,7 @@

 ADD_DEFINITIONS   ( -DTKDND_VERSION="${PKG_VERSION}" )

 ## Package debug definitions...

-# ADD_DEFINITIONS   ( -DDEBUG_CLIENTMESSAGE_HANDLER )

+ADD_DEFINITIONS   ( -DDEBUG_CLIENTMESSAGE_HANDLER )

 ## ===========================================================================

 ##  Declare the package shared library target...

Index: library/tkdnd_unix.tcl

===================================================================

--- library/tkdnd_unix.tcl	(revision 95)

+++ library/tkdnd_unix.tcl	(working copy)

@@ -54,7 +54,7 @@

   variable _last_mouse_root_y 0

   proc debug {msg} {

-    puts $msg

+    #puts $msg

   };# debug

 };# namespace xdnd

@@ -69,6 +69,7 @@

   variable _common_drop_target_types; set _common_drop_target_types {}

   variable _actionlist

   variable _drag_source;              set _drag_source $drag_source

+debug "_drop_target clear1"

   variable _drop_target;              set _drop_target {}

   variable _actionlist;               set _actionlist  \

                                            {copy move link ask private}

@@ -82,6 +83,15 @@

   return default

 };# xdnd::_HandleXdndEnter

+

+proc xdnd::_pointWithinWindow {win rootX rootY} {

+  set x [winfo rootx $win]

+  set y [winfo rooty $win]

+  set w [winfo width $win]

+  set h [winfo height $win]

+  return [expr "$rootX >= $x && $rootX < $x+$w && $rootY >= $y && $rootY < $y+$h"]

+}

+

 # ----------------------------------------------------------------------------

 #  Command xdnd::_HandleXdndPosition

 # ----------------------------------------------------------------------------

@@ -102,9 +112,19 @@

   # debug "xdnd::_HandleXdndPosition: drop_target=$drop_target,\

   #            _drop_target=$_drop_target, rootX=$rootX, rootY=$rootY"

+  # drop_target may be a parent of the real target.

+

+  # this is all a workaround for 'winfo containing' never returning anything

+  set children [winfo children $drop_target]

+  foreach child $children {

+    if {[_pointWithinWindow $child $rootX $rootY]} {

+      return [_HandleXdndPosition $child $rootX $rootY $drag_source]

+    }

+  }

+    

   if {![info exists _drag_source] && ![string length $_drag_source]} {

-    # debug "xdnd::_HandleXdndPosition: no or empty _drag_source:\

-    #               return refuse_drop"

+    debug "xdnd::_HandleXdndPosition: no or empty _drag_source:\

+                   return refuse_drop"

     return refuse_drop

   }

@@ -116,7 +136,7 @@

   ## Does the new drop target support any of our new types? 

   set _types [bind $drop_target <<DropTargetTypes>>]

-  # debug ">> Accepted types: $drop_target $_types"

+  debug ">> Accepted types: $drop_target $_types"

   if {[llength $_types]} {

     ## Examine the drop target types, to find at least one match with the drag

     ## source types...

@@ -130,7 +150,7 @@

     }

   }

-  # debug "\t($_drop_target) -> ($drop_target)"

+  debug "\t($_drop_target) -> ($drop_target)"

   if {$drop_target != $_drop_target} {

     if {[string length $_drop_target]} {

       ## Call the <<DropLeave>> event.

@@ -152,6 +172,7 @@

         uplevel \#0 $cmd

       }

     }

+    debug "_drop_target clear2"

     set _drop_target {}

     if {[info exists common_drag_source_types]} {

@@ -179,15 +200,16 @@

         set _action [uplevel \#0 $cmd]

       }

     }

+    debug "_drop_target set3 $drop_target"

     set _drop_target $drop_target

   }

   set _action refuse_drop

-  set _drop_target {}

   if {[info exists common_drag_source_types]} {

     set _action copy

     set _common_drag_source_types $common_drag_source_types

     set _common_drop_target_types $common_drop_target_types

+    debug "_drop_target set5 -> $_drop_target"

     set _drop_target $drop_target

     ## Drop target supports at least one type. Send a <<DropPosition>>.

     set cmd [bind $drop_target <<DropPosition>>]

@@ -206,6 +228,10 @@

         ] $cmd]

       set _action [uplevel \#0 $cmd]

     }

+  } else {

+    # logic wasn't clear; i'm just guessing this should be the else-clause

+    debug "_drop_target clear4, was $_drop_target"

+    set _drop_target {}

   }

   # Return values: copy, move, link, ask, private, refuse_drop, default

   # debug "xdnd::_HandleXdndPosition: ACTION: $_action"

@@ -227,7 +253,10 @@

   variable _drop_target

   variable _last_mouse_root_x

   variable _last_mouse_root_y

-  if {![info exists _drop_target]} {set _drop_target {}}

+  if {![info exists _drop_target]} {

+debug "_drop_target clear6"

+set _drop_target {}

+}

   # debug "xdnd::_HandleXdndLeave: _drop_target=$_drop_target"

   if {[info exists _drop_target] && [string length $_drop_target]} {

     set cmd [bind $_drop_target <<DropLeave>>]

@@ -273,7 +302,7 @@

   set rootX $_last_mouse_root_x

   set rootY $_last_mouse_root_y

-  # puts "xdnd::_HandleXdndDrop: $time"

+  puts "xdnd::_HandleXdndDrop: $time $_drop_target"

   if {![info exists _drag_source] && ![string length $_drag_source]} {

     return refuse_drop