diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 09:58:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 09:58:45 (GMT) |
| commit | 0d82ed4dd499eafdf6d5af7fa6836610ba307d15 (patch) | |
| tree | 6771c6eec537ae3de3736c62a598513c2b17430e /generic | |
| parent | d3539f9c972519af19dc91bc022b2ae293341614 (diff) | |
| download | tk-0d82ed4dd499eafdf6d5af7fa6836610ba307d15.zip tk-0d82ed4dd499eafdf6d5af7fa6836610ba307d15.tar.gz tk-0d82ed4dd499eafdf6d5af7fa6836610ba307d15.tar.bz2 | |
Sync genStubs.tcl changes from Tcl 8.6. Finish "make genstubs" for Ttk in makefile.vc.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/ttk/ttkGenStubs.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl index 6aabd61..82704b3 100644 --- a/generic/ttk/ttkGenStubs.tcl +++ b/generic/ttk/ttkGenStubs.tcl @@ -4,7 +4,7 @@ # interface. # # -# Copyright (c) 1998-1999 by Scriptics Corporation. +# Copyright (c) 1998-1999 Scriptics Corporation. # Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net> # # See the file "license.terms" for information on usage and redistribution @@ -248,8 +248,9 @@ proc genStubs::rewriteFile {file text} { return } set in [open ${file} r] + fconfigure $in -eofchar "\032 {}" -encoding utf-8 set out [open ${file}.new w] - fconfigure $out -translation lf + fconfigure $out -translation lf -encoding utf-8 while {![eof $in]} { set line [gets $in] @@ -973,7 +974,7 @@ proc genStubs::init {} { set outDir [lindex $argv 0] foreach file [lrange $argv 1 end] { - source $file + source -encoding utf-8 $file } foreach name [lsort [array names interfaces]] { |