diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-01 11:09:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-01 11:09:37 (GMT) |
| commit | bfa9e3fe55bd56a7da40c58a8d242cbe1b1120a9 (patch) | |
| tree | caa2028e644331aa1d753d3addac713b9a6485dc /library/tk.tcl | |
| parent | 1761e6a6e5cabd444b8a8781b78b6ab3819a8fa0 (diff) | |
| parent | d0502168bacfabd293335c1346f631e1021086df (diff) | |
| download | tk-bfa9e3fe55bd56a7da40c58a8d242cbe1b1120a9.zip tk-bfa9e3fe55bd56a7da40c58a8d242cbe1b1120a9.tar.gz tk-bfa9e3fe55bd56a7da40c58a8d242cbe1b1120a9.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 405a9f5..c8a9b87 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -695,11 +695,11 @@ if {[tk windowingsystem] eq "aqua"} { #stub procedures to respond to "do script" Apple Events proc ::tk::mac::DoScriptFile {file} { uplevel #0 $file - source -encoding utf-8 $file + source -encoding utf-8 $file } proc ::tk::mac::DoScriptText {script} { uplevel #0 $script - eval $script + eval $script } #This procedure is required to silence warnings generated #by inline AppleScript execution. |