diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-23 10:47:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-23 10:47:53 (GMT) |
| commit | 4d8498f181894261f21358d49ab8ba2dfe3b021a (patch) | |
| tree | 4a549e699389e69c4ffde71bcd6ef3ee9b6c8466 | |
| parent | b214554afac1888e696aabb53e87a04468ec9359 (diff) | |
| download | tk-4d8498f181894261f21358d49ab8ba2dfe3b021a.zip tk-4d8498f181894261f21358d49ab8ba2dfe3b021a.tar.gz tk-4d8498f181894261f21358d49ab8ba2dfe3b021a.tar.bz2 | |
See previous commit, but don't do this for user-provided script files
| -rw-r--r-- | library/console.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/console.tcl b/library/console.tcl index e59e6e2..30c4d88 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 -encoding utf-8 $filename] + set cmd [list source $filename] if {[catch {consoleinterp eval $cmd} result]} { ConsoleOutput stderr "$result\n" } |