diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-23 10:50:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-23 10:50:32 (GMT) |
| commit | 05e4fd3bf63de0be170aaf67df185f01c30f6ea0 (patch) | |
| tree | dd88698d419b0353a29461e38c377d3f2d97725e /library/console.tcl | |
| parent | 5164db768ac805564630f25daae0357dad688b0c (diff) | |
| parent | 4d8498f181894261f21358d49ab8ba2dfe3b021a (diff) | |
| download | tk-05e4fd3bf63de0be170aaf67df185f01c30f6ea0.zip tk-05e4fd3bf63de0be170aaf67df185f01c30f6ea0.tar.gz tk-05e4fd3bf63de0be170aaf67df185f01c30f6ea0.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/console.tcl b/library/console.tcl index 1763584..1da85be 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -215,7 +215,7 @@ proc ::tk::ConsoleSource {} { [list [mc "Tcl Scripts"] .tcl] \ [list [mc "All Files"] *]]] if {$filename ne ""} { - set cmd [list source $filename] + set cmd [list source -encoding utf-8 $filename] if {[catch {consoleinterp eval $cmd} result]} { ConsoleOutput stderr "$result\n" } @@ -592,7 +592,7 @@ proc ::tk::ConsoleBind {w} { } bind Console <F9> { eval destroy [winfo child .] - source [file join $tk_library console.tcl] + source -encoding utf-8 [file join $tk_library console.tcl] } if {[tk windowingsystem] eq "aqua"} { bind Console <Command-q> { |