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

csaba · csaba · commit f9e5a145f167 · 2021-02-01T17:35:16.000Z
containers slightly improved again.
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]

Original file line number	Diff line number	Diff line change
`@@ -279,7 +279,7 @@ pack $tf -side top -expand yes -fill both`
`279`	`279`	`wm deiconify .`
`280`	`280`
`281`	`281`	`#`
`282`		`-# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
	`282`	`+# Work around a potential accuracy problem related to [$sf xview]`
`283`	`283`	`#`
`284`	`284`	`tkwait visibility $sf`
`285`	`285`	`while {[lindex [$sf xview] 1] != 1.0} {`
Original file line number	Diff line number	Diff line change
`@@ -129,7 +129,7 @@ pack $f -expand yes -fill both`
`129`	`129`	`wm deiconify .`
`130`	`130`
`131`	`131`	`#`
`132`		`-# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
	`132`	`+# Work around a potential accuracy problem related to [$sf xview]`
`133`	`133`	`#`
`134`	`134`	`tkwait visibility $sf`
`135`	`135`	`while {[lindex [$sf xview] 1] != 1.0} {`
Original file line number	Diff line number	Diff line change
`@@ -281,7 +281,7 @@ pack $tf -side top -expand yes -fill both`
`281`	`281`	`wm deiconify .`
`282`	`282`
`283`	`283`	`#`
`284`		`-# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
	`284`	`+# Work around a potential accuracy problem related to [$sf xview]`
`285`	`285`	`#`
`286`	`286`	`tkwait visibility $sf`
`287`	`287`	`while {[lindex [$sf xview] 1] != 1.0} {`
Original file line number	Diff line number	Diff line change
`@@ -124,7 +124,7 @@ pack $f -expand yes -fill both`
`124`	`124`	`wm deiconify .`
`125`	`125`
`126`	`126`	`#`
`127`		`-# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
	`127`	`+# Work around a potential accuracy problem related to [$sf xview]`
`128`	`128`	`#`
`129`	`129`	`tkwait visibility $sf`
`130`	`130`	`while {[lindex [$sf xview] 1] != 1.0} {`
Original file line number	Diff line number	Diff line change
`@@ -278,7 +278,7 @@ pack $tf -side top -expand yes -fill both`
`278`	`278`	`wm deiconify .`
`279`	`279`
`280`	`280`	`#`
`281`		`-# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
	`281`	`+# Work around a potential accuracy problem related to [$sf xview]`
`282`	`282`	`#`
`283`	`283`	`tkwait visibility $sf`
`284`	`284`	`set width [$sf cget -width]`
Original file line number	Diff line number	Diff line change
`@@ -115,7 +115,7 @@ pack $f -expand yes -fill both`
`115`	`115`	`wm deiconify .`
`116`	`116`
`117`	`117`	`#`
`118`		`-# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
	`118`	`+# Work around a potential accuracy problem related to [$sf xview]`
`119`	`119`	`#`
`120`	`120`	`tkwait visibility $sf`
`121`	`121`	`set width [$sf cget -width]`