Import Tk 8.6.12
This commit is contained in:
@@ -624,7 +624,7 @@ proc showCode w {
|
||||
wm title $top [mc "Demo code: %s" [file join $tk_demoDirectory $file]]
|
||||
wm iconname $top $file
|
||||
set id [open [file join $tk_demoDirectory $file]]
|
||||
fconfigure $id -encoding utf-8 -eofchar \032
|
||||
fconfigure $id -encoding utf-8 -eofchar "\032 {}"
|
||||
$top.f.text delete 1.0 end
|
||||
$top.f.text insert 1.0 [read $id]
|
||||
$top.f.text mark set insert 1.0
|
||||
|
||||
Reference in New Issue
Block a user