* ../../examples/scrollutil/*.tcl: Demo scripts using scrollabe widget

containers slightly improved again.
tcltk · Feb 1, 2021 · f9e5a14 · f9e5a14
1 parent 50566e2
commit f9e5a14
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git 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 [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {

diff --git 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 [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {

diff --git 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 [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {

diff --git 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 [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 while {[lindex [$sf xview] 1] != 1.0} {

diff --git a/examples/scrollutil/SuScrollableFrmContent.tcl b/examples/scrollutil/SuScrollableFrmContent.tcl
@@ -278,7 +278,7 @@ pack $tf -side top -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 set width [$sf cget -width]

diff --git a/examples/scrollutil/SuScrollableFrmDemo1.tcl b/examples/scrollutil/SuScrollableFrmDemo1.tcl
@@ -115,7 +115,7 @@ pack $f  -expand yes -fill both
 wm deiconify .
 
 #
-# Work around a potential accuracy problem related to [winfo reqwidth $cf]
+# Work around a potential accuracy problem related to [$sf xview]
 #
 tkwait visibility $sf
 set width [$sf cget -width]