diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-31 14:54:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-31 14:54:42 (GMT) |
| commit | e7801eff572b61c37aa0f2cc9474937e59593617 (patch) | |
| tree | 7f296659b2b450d7c18f74a97aa4297e0bd17cbc /library | |
| parent | 49ed94c87b0c8c723c5b22d22f3f2cbc7b418f20 (diff) | |
| parent | 3d4865351a5e9ec4af6a58463a3d7b02ab9cdab7 (diff) | |
| download | tk-e7801eff572b61c37aa0f2cc9474937e59593617.zip tk-e7801eff572b61c37aa0f2cc9474937e59593617.tar.gz tk-e7801eff572b61c37aa0f2cc9474937e59593617.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library')
| -rw-r--r-- | library/scaling.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/scaling.tcl b/library/scaling.tcl index 280fb1a..c3a6052 100644 --- a/library/scaling.tcl +++ b/library/scaling.tcl @@ -22,12 +22,12 @@ proc ::tk::ScalingPct {} { variable doneScalingInitX11 if {![info exists doneScalingInitX11]} { - set pct [::tk::ScalingInitX11 $pct] + set pct [::tk::ScalingInitX11 $pct] set doneScalingInitX11 1 } # - # Save the value of pct rounded to the nearest multiple + # Save the value of pct rounded to the nearest multiple # of 25 that is at least 100, in the variable scalingPct. # See "man n tk_scalingPct" for use of ::tk::scalingPct. # |