diff options
author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2009-12-09 21:00:34 (GMT) |
---|---|---|
committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2009-12-09 21:00:34 (GMT) |
commit | c80f725cf708460935311c056d5ada6a39a2ac1a (patch) | |
tree | bd4371cbf3eb27d1548ad69507bfc40c485c0721 /library/tkdnd_macosx.tcl | |
parent | 97696624c65652b5fe47c8c30ab0056b2e591824 (diff) | |
download | tkdnd-c80f725cf708460935311c056d5ada6a39a2ac1a.zip tkdnd-c80f725cf708460935311c056d5ada6a39a2ac1a.tar.gz tkdnd-c80f725cf708460935311c056d5ada6a39a2ac1a.tar.bz2 |
MAC OS X updates
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 |