diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2020-08-24 00:47:42 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2020-08-24 00:47:42 (GMT) |
| commit | 79cce61253647cf934c292ae7c32c133c4cff51e (patch) | |
| tree | da705311dd3c70ab67a614918ef36ec8a4596a52 /library | |
| parent | 4d8366f3ea29283c2698ea9a951c02e50c0e8fac (diff) | |
| download | tk-79cce61253647cf934c292ae7c32c133c4cff51e.zip tk-79cce61253647cf934c292ae7c32c133c4cff51e.tar.gz tk-79cce61253647cf934c292ae7c32c133c4cff51e.tar.bz2 | |
Test branch for AppleScript bugs with patch from Lars Helstrom
Diffstat (limited to 'library')
| -rw-r--r-- | library/tk.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 421bac8..abe34ab 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -687,9 +687,11 @@ if {[tk windowingsystem] eq "aqua"} { if {[tk windowingsystem] eq "aqua"} { #stub procedures to respond to "do script" Apple Events proc ::tk::mac::DoScriptFile {file} { + uplevel #0 $file source $file } proc ::tk::mac::DoScriptText {script} { + uplevel #0 $script eval $script } } |