diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-23 11:13:21 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-23 11:13:21 (GMT) |
commit | 4ffc1e087b85ca03aef3f3e5b63f1f9129c4ebb0 (patch) | |
tree | afa74fc63c648d09741a2b301eb90ce65de81f1d /library/tk.tcl | |
parent | e6d8782a82c1f9422c20369e90c092780c14d6ed (diff) | |
parent | e164fe342189dd2f98830e9b3854b56519d8bf74 (diff) | |
download | tk-4ffc1e087b85ca03aef3f3e5b63f1f9129c4ebb0.zip tk-4ffc1e087b85ca03aef3f3e5b63f1f9129c4ebb0.tar.gz tk-4ffc1e087b85ca03aef3f3e5b63f1f9129c4ebb0.tar.bz2 |
Merge 8.7
Diffstat (limited to 'library/tk.tcl')
-rw-r--r-- | library/tk.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index eedbc66..f799ada 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -493,7 +493,7 @@ switch -exact -- [tk windowingsystem] { if {$::tk_library ne ""} { proc ::tk::SourceLibFile {file} { - namespace eval :: [list source [file join $::tk_library $file.tcl]] + namespace eval :: [list source -encoding utf-8 [file join $::tk_library $file.tcl]] } namespace eval ::tk { SourceLibFile icons @@ -692,7 +692,7 @@ if {[tk windowingsystem] eq "aqua"} { #stub procedures to respond to "do script" Apple Events proc ::tk::mac::DoScriptFile {file} { uplevel #0 $file - source $file + source -encoding utf-8 $file } proc ::tk::mac::DoScriptText {script} { uplevel #0 $script @@ -707,7 +707,7 @@ set ::tk::Priv(IMETextMark) [dict create] # Run the Ttk themed widget set initialization if {$::ttk::library ne ""} { - uplevel \#0 [list source $::ttk::library/ttk.tcl] + uplevel \#0 [list source -encoding utf-8 $::ttk::library/ttk.tcl] } # Local Variables: |