diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2019-09-02 13:48:07 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2019-09-02 13:48:07 (GMT) |
| commit | f44aa5c0157a509a8242a1fdf2813f3cae6eef27 (patch) | |
| tree | 24d9aa4502fb83c853046bece8f3e7a2fb8d4c60 /library | |
| parent | 06d12e69e9974547cb077ad90a2fbff640b8d5ee (diff) | |
| parent | 6a358e30155c94e44a4fd964ac793161cbc36164 (diff) | |
| download | tk-f44aa5c0157a509a8242a1fdf2813f3cae6eef27.zip tk-f44aa5c0157a509a8242a1fdf2813f3cae6eef27.tar.gz tk-f44aa5c0157a509a8242a1fdf2813f3cae6eef27.tar.bz2 | |
Merge recent fixes for macOS into release branch from core-8-6-branch
Diffstat (limited to 'library')
| -rw-r--r-- | library/tk.tcl | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 81e8d56..30aa83d 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -685,13 +685,24 @@ if {[tk windowingsystem] eq "aqua"} { } } -#register to send data to macOS Services + if {[tk windowingsystem] eq "aqua"} { -proc ::tk::RegisterServiceWidget {w} { - ::tk::mac::registerServiceWidget $w - } + #register to send data to macOS Services + proc ::tk::RegisterServiceWidget {w} { + ::tk::mac::registerServiceWidget $w + } + + #stub procedures to respond to "do script" Apple Events + proc ::tk::mac::DoScriptFile {file} { + source $file + } + proc ::tk::mac::DoScriptText {script} { + eval $script + } } + + # Run the Ttk themed widget set initialization if {$::ttk::library ne ""} { uplevel \#0 [list source $::ttk::library/ttk.tcl] |