From c2bf8e3a0088e4d5810314b249bf8da4ac935b6f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 15 Jan 2021 15:08:19 +0000
Subject: Always use -eofchar "\032 {}", not -eofchar \032. See:
 [https://core.tcl-lang.org/tcl/tktview?name=5bfe3de008|5bfe3de008]

---
 library/demos/widget | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/demos/widget b/library/demos/widget
index 58da12f..13b8d0e 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -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
-- 
cgit v0.12