diff options
| author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2009-12-09 19:38:56 (GMT) |
|---|---|---|
| committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2009-12-09 19:38:56 (GMT) |
| commit | 97696624c65652b5fe47c8c30ab0056b2e591824 (patch) | |
| tree | f31323b69355ee54818fd70cf1800789f08aa32d /library/tkdnd_macosx.tcl | |
| parent | cbfcc3086427527a55c04f9e08d355391cfcb326 (diff) | |
| download | tkdnd-97696624c65652b5fe47c8c30ab0056b2e591824.zip tkdnd-97696624c65652b5fe47c8c30ab0056b2e591824.tar.gz tkdnd-97696624c65652b5fe47c8c30ab0056b2e591824.tar.bz2 | |
MAC OS X updates
Diffstat (limited to 'library/tkdnd_macosx.tcl')
| -rw-r--r-- | library/tkdnd_macosx.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/tkdnd_macosx.tcl b/library/tkdnd_macosx.tcl index 3beb8b5..0e7d1e2 100644 --- a/library/tkdnd_macosx.tcl +++ b/library/tkdnd_macosx.tcl @@ -347,8 +347,8 @@ proc macdnd::_normalise_data { type data } { # ---------------------------------------------------------------------------- proc macdnd::_platform_specific_type { type } { switch $type { - DND_Text {return [list string]} - DND_Files {return [list files]} + DND_Text {return [list NSStringPboardType]} + DND_Files {return [list NSFilenamesPboardType]} default {return [list $type]} } }; # macdnd::_platform_specific_type @@ -358,9 +358,9 @@ proc macdnd::_platform_specific_type { type } { # ---------------------------------------------------------------------------- proc macdnd::_platform_independent_type { type } { switch $type { - string {return DND_Text} - files {return DND_Files} - default {return [list $type]} + NSStringPboardType {return DND_Text} + NSFilenamesPboardType {return DND_Files} + default {return [list $type]} } }; # macdnd::_platform_independent_type |