diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2019-09-02 13:19:20 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2019-09-02 13:19:20 (GMT) |
| commit | b81ebcc5809b069440ecdced2f9ac3d14e1e017e (patch) | |
| tree | 3463bb43cb8528d3ab70558924af6c5b0b5552ce /library | |
| parent | f2567bf666b8bd0210e2b7491e10838ae0278bfd (diff) | |
| parent | 2413f540b4709f4ffade95c9ed42ac90ceced283 (diff) | |
| download | tk-b81ebcc5809b069440ecdced2f9ac3d14e1e017e.zip tk-b81ebcc5809b069440ecdced2f9ac3d14e1e017e.tar.gz tk-b81ebcc5809b069440ecdced2f9ac3d14e1e017e.tar.bz2 | |
Merge in ae_cleanup branch; thanks to Marc Culler for patches to clean up Apple Event processing on app startup
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 f00b4f9..047ea63 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] |