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

csaba · csaba · commit 50566e2f12df · 2021-02-01T16:22:13.000Z
containers slightly improved.
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 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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

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 scaling`
	`282`	`+# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
`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 scaling`
	`132`	`+# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
`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 scaling`
	`284`	`+# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
`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 scaling`
	`127`	`+# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
`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,9 +278,10 @@ 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 scaling`
	`281`	`+# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
`282`	`282`	`#`
`283`	`283`	`tkwait visibility $sf`
	`284`	`+set width [$sf cget -width]`
`284`	`285`	`while {[lindex [$sf xview] 1] != 1.0} {`
`285`	`286`	`$sf configure -width [incr width]`
`286`	`287`	`update idletasks`
Original file line number	Diff line number	Diff line change
`@@ -115,9 +115,10 @@ pack $f -expand yes -fill both`
`115`	`115`	`wm deiconify .`
`116`	`116`
`117`	`117`	`#`
`118`		`-# Work around a potential accuracy problem related to scaling`
	`118`	`+# Work around a potential accuracy problem related to [winfo reqwidth $cf]`
`119`	`119`	`#`
`120`	`120`	`tkwait visibility $sf`
	`121`	`+set width [$sf cget -width]`
`121`	`122`	`while {[lindex [$sf xview] 1] != 1.0} {`
`122`	`123`	`$sf configure -width [incr width]`
`123`	`124`	`update idletasks`