diff options
| author | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2014-08-13 18:33:48 (GMT) |
|---|---|---|
| committer | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2014-08-13 18:33:48 (GMT) |
| commit | a180f18ae3f3ada9c56d86479135d64d4c8eae6e (patch) | |
| tree | a1b0b5533154d468366fda5a7d963967c3b2ae1d /library/tkdnd.tcl | |
| parent | 82b4c65e44fe98ef9083600b6a459464a23d94ed (diff) | |
| download | tkdnd-a180f18ae3f3ada9c56d86479135d64d4c8eae6e.zip tkdnd-a180f18ae3f3ada9c56d86479135d64d4c8eae6e.tar.gz tkdnd-a180f18ae3f3ada9c56d86479135d64d4c8eae6e.tar.bz2 | |
OSX updates
Diffstat (limited to 'library/tkdnd.tcl')
| -rw-r--r-- | library/tkdnd.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/library/tkdnd.tcl b/library/tkdnd.tcl index 0fbf3db..d15f622 100644 --- a/library/tkdnd.tcl +++ b/library/tkdnd.tcl @@ -157,6 +157,7 @@ namespace eval tkdnd { } load $dir/$PKG_LIB_FILE $PACKAGE_NAME source $dir/tkdnd_compat.tcl + ${_platform_namespace}::initialise };# initialise proc GetDropFileTempDirectory { } { @@ -325,7 +326,7 @@ proc tkdnd::_init_drag { button source state rootX rootY } { set action [_DoDragDrop $source $actions $types $data $button] } aqua { - set action [macdnd::dodragdrop $source $actions $types $data] + set action [macdnd::dodragdrop $source $actions $types $data $button] } default { error "unknown Tk windowing system" @@ -381,7 +382,7 @@ proc tkdnd::_end_drag { button source target action type data result # ---------------------------------------------------------------------------- proc tkdnd::platform_specific_types { types } { variable _platform_namespace - return [${_platform_namespace}::_platform_specific_types $types] + ${_platform_namespace}::_platform_specific_types $types }; # tkdnd::platform_specific_types # ---------------------------------------------------------------------------- @@ -389,7 +390,7 @@ proc tkdnd::platform_specific_types { types } { # ---------------------------------------------------------------------------- proc tkdnd::platform_independent_types { types } { variable _platform_namespace - return [${_platform_namespace}::_platform_independent_types $types] + ${_platform_namespace}::_platform_independent_types $types }; # tkdnd::platform_independent_types # ---------------------------------------------------------------------------- @@ -397,7 +398,7 @@ proc tkdnd::platform_independent_types { types } { # ---------------------------------------------------------------------------- proc tkdnd::platform_specific_type { type } { variable _platform_namespace - return [${_platform_namespace}::_platform_specific_type $type] + ${_platform_namespace}::_platform_specific_type $type }; # tkdnd::platform_specific_type # ---------------------------------------------------------------------------- @@ -405,7 +406,7 @@ proc tkdnd::platform_specific_type { type } { # ---------------------------------------------------------------------------- proc tkdnd::platform_independent_type { type } { variable _platform_namespace - return [${_platform_namespace}::_platform_independent_type $type] + ${_platform_namespace}::_platform_independent_type $type }; # tkdnd::platform_independent_type # ---------------------------------------------------------------------------- |