From 50566e2f12df677c7520a93af1ef8e8a68360901 Mon Sep 17 00:00:00 2001
From: csaba <csaba>
Date: Mon, 1 Feb 2021 16:22:13 +0000
Subject: [PATCH] 	* ../../examples/scrollutil/*.tcl: Demo scripts using
 scrollabe widget 	  containers slightly improved.

---
 examples/scrollutil/BwScrollableFrmContent.tcl | 2 +-
 examples/scrollutil/BwScrollableFrmDemo1.tcl   | 2 +-
 examples/scrollutil/ScrolledFrmContent.tcl     | 2 +-
 examples/scrollutil/ScrolledFrmDemo1.tcl       | 2 +-
 examples/scrollutil/SuScrollableFrmContent.tcl | 3 ++-
 examples/scrollutil/SuScrollableFrmDemo1.tcl   | 3 ++-
 6 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/examples/scrollutil/BwScrollableFrmContent.tcl b/examples/scrollutil/BwScrollableFrmContent.tcl
index fa832a7f..b33462a3 100644
--- a/examples/scrollutil/BwScrollableFrmContent.tcl
+++ b/examples/scrollutil/BwScrollableFrmContent.tcl
@@ -279,7 +279,7 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to scaling
+# Work around a potential accuracy problem related to [winfo reqwidth $cf]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/BwScrollableFrmDemo1.tcl b/examples/scrollutil/BwScrollableFrmDemo1.tcl
index 1f0017db..4015dddf 100755
--- a/examples/scrollutil/BwScrollableFrmDemo1.tcl
+++ b/examples/scrollutil/BwScrollableFrmDemo1.tcl
@@ -129,7 +129,7 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to scaling
+# Work around a potential accuracy problem related to [winfo reqwidth $cf]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/ScrolledFrmContent.tcl b/examples/scrollutil/ScrolledFrmContent.tcl
index 984776e8..2d14b5df 100644
--- a/examples/scrollutil/ScrolledFrmContent.tcl
+++ b/examples/scrollutil/ScrolledFrmContent.tcl
@@ -281,7 +281,7 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to scaling
+# Work around a potential accuracy problem related to [winfo reqwidth $cf]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/ScrolledFrmDemo1.tcl b/examples/scrollutil/ScrolledFrmDemo1.tcl
index bcb027f9..5921a22b 100755
--- a/examples/scrollutil/ScrolledFrmDemo1.tcl
+++ b/examples/scrollutil/ScrolledFrmDemo1.tcl
@@ -124,7 +124,7 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to scaling
+# Work around a potential accuracy problem related to [winfo reqwidth $cf]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {
diff --git a/examples/scrollutil/SuScrollableFrmContent.tcl b/examples/scrollutil/SuScrollableFrmContent.tcl
index 25439837..79927db0 100644
--- a/examples/scrollutil/SuScrollableFrmContent.tcl
+++ b/examples/scrollutil/SuScrollableFrmContent.tcl
@@ -278,9 +278,10 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to scaling
+# Work around a potential accuracy problem related to [winfo reqwidth $cf]
 #
 tkwait visibility $sf
+set width [$sf cget -width]
 while {[lindex [$sf xview] 1] != 1.0} {
     $sf configure -width [incr width]
     update idletasks
diff --git a/examples/scrollutil/SuScrollableFrmDemo1.tcl b/examples/scrollutil/SuScrollableFrmDemo1.tcl
index 149c823f..42afb17c 100755
--- a/examples/scrollutil/SuScrollableFrmDemo1.tcl
+++ b/examples/scrollutil/SuScrollableFrmDemo1.tcl
@@ -115,9 +115,10 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to scaling
+# Work around a potential accuracy problem related to [winfo reqwidth $cf]
 #
 tkwait visibility $sf
+set width [$sf cget -width]
 while {[lindex [$sf xview] 1] != 1.0} {
     $sf configure -width [incr width]
     update idletasks