diff options
Diffstat (limited to 'library/tkdnd_macosx.tcl')
| -rw-r--r-- | library/tkdnd_macosx.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/library/tkdnd_macosx.tcl b/library/tkdnd_macosx.tcl index 0e7d1e2..0e007d7 100644 --- a/library/tkdnd_macosx.tcl +++ b/library/tkdnd_macosx.tcl @@ -60,9 +60,9 @@ namespace eval macdnd { };# namespace macdnd # ---------------------------------------------------------------------------- -# Command macdnd::_HandleXdndEnter +# Command macdnd::_HandleEnter # ---------------------------------------------------------------------------- -proc macdnd::_HandleXdndEnter { path drag_source typelist } { +proc macdnd::_HandleEnter { path drag_source typelist } { variable _typelist; set _typelist $typelist variable _pressedkeys; set _pressedkeys 1 variable _action; set _action {} @@ -73,10 +73,11 @@ proc macdnd::_HandleXdndEnter { path drag_source typelist } { variable _drop_target; set _drop_target {} variable _actionlist; set _actionlist \ {copy move link ask private} - # puts "macdnd::_HandleXdndEnter: path=$path, drag_source=$drag_source,\ - # typelist=$typelist" + puts "macdnd::_HandleEnter: path=$path, drag_source=$drag_source,\ + typelist=$typelist" update -};# macdnd::_HandleXdndEnter + return default +};# macdnd::_HandleEnter # ---------------------------------------------------------------------------- # Command macdnd::_HandleXdndPosition |