diff options
author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2010-01-03 12:21:28 (GMT) |
---|---|---|
committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2010-01-03 12:21:28 (GMT) |
commit | 96606f1e461bb4f7528de4b3b42e0f23f543cbd3 (patch) | |
tree | f83ce2b7ed7474509699c784f0f253a2e6ead633 /library/tkdnd_macosx.tcl | |
parent | e97c2de6002de698b643673e0cd403426cfd1c80 (diff) | |
download | tkdnd-96606f1e461bb4f7528de4b3b42e0f23f543cbd3.zip tkdnd-96606f1e461bb4f7528de4b3b42e0f23f543cbd3.tar.gz tkdnd-96606f1e461bb4f7528de4b3b42e0f23f543cbd3.tar.bz2 |
OS X dropped data handling
Diffstat (limited to 'library/tkdnd_macosx.tcl')
-rw-r--r-- | library/tkdnd_macosx.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/library/tkdnd_macosx.tcl b/library/tkdnd_macosx.tcl index 7663de6..c857f18 100644 --- a/library/tkdnd_macosx.tcl +++ b/library/tkdnd_macosx.tcl @@ -52,7 +52,7 @@ if {[tk windowingsystem] eq "aqua" && "AppKit" ni [winfo server .]} { } namespace eval macdnd { - variable xdnd ::tkdnd::tkdnd::xdnd + variable _dropped_data };# namespace macdnd # ---------------------------------------------------------------------------- @@ -79,7 +79,9 @@ proc macdnd::_HandleLeave { args } { # ---------------------------------------------------------------------------- # Command macdnd::_HandleXdndDrop # ---------------------------------------------------------------------------- -proc macdnd::_HandleDrop { args } { +proc macdnd::_HandleDrop { drop_target data args } { + variable _dropped_data + set _dropped_data $data return [::tkdnd::xdnd::_HandleXdndDrop 0] };# macdnd::_HandleDrop @@ -87,8 +89,8 @@ proc macdnd::_HandleDrop { args } { # Command macdnd::_GetDroppedData # ---------------------------------------------------------------------------- proc macdnd::_GetDroppedData { } { - ## Use [clipboard get] because Xselection code returns error - return [clipboard get] + variable _dropped_data + return $_dropped_data };# macdnd::_GetDroppedData proc xdnd::_GetDroppedData { } { return [::tkdnd::macdnd::_GetDroppedData] |