Improvements to Mac OSX library to alllow binding to target widget not toplevel

1 files changed, 3 insertions, 5 deletions

diff --git a/demos/macdemo.tcl b/demos/macdemo.tcl
index 41ab1ce..d3b4d65 100644
--- a/demos/macdemo.tcl
+++ b/demos/macdemo.tcl
@@ -6,13 +6,11 @@ pack [text .t -bg white] -fill both -expand yes
 
 tkdnd::drop_target register .t *
 
-#Note that when you register a widget, you must apply bindings to its toplevel parent. The C impelmentation of tkdnd on the Mac does not work on child widgets, only the toplevel window. 
-
-bind . <<Drop>> {.t insert end %D }
+bind .t <<Drop>> {%W insert end %D}
 
 ##Note these two bindings are no-op on the Mac; the C-level impelmentation takes care of the changing cursor. 
-bind . <<DropEnter>> {.t configure -bg red}
-bind . <<DropLeave>> {.t configure -bg white}
+bind .t <<DropEnter>> { %W configure -bg red}
+bind .t <<DropLeave>> {list copy; %W configure -bg white}