diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-15 20:20:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-15 20:20:29 (GMT) |
| commit | c2438211ba9f4dc38923537ccd1d1ad107647c8a (patch) | |
| tree | 2145b945539f7c43d56ab352642c283c8a7c02b2 /library/tk.tcl | |
| parent | bc7034e2a3d599b3976b75741334d0598f2eb127 (diff) | |
| parent | 4e0f2e932c49f1910a446374f803f1a7cdf82020 (diff) | |
| download | tk-c2438211ba9f4dc38923537ccd1d1ad107647c8a.zip tk-c2438211ba9f4dc38923537ccd1d1ad107647c8a.tar.gz tk-c2438211ba9f4dc38923537ccd1d1ad107647c8a.tar.bz2 | |
merge core-8-6-branch: mac services improvements
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 757eb7a..372752b 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -684,6 +684,14 @@ 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 + } +} + + # Run the Ttk themed widget set initialization if {$::ttk::library ne ""} { uplevel \#0 [list source $::ttk::library/ttk.tcl] |