diff options
| author | marc_culler <marc.culler@gmail.com> | 2023-11-24 04:55:34 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2023-11-24 04:55:34 (GMT) |
| commit | 037024d2e3f28c239d71fe93bdb82ad816965663 (patch) | |
| tree | ba4deae641b8eb5a23cd85d3bef3d0215296cd85 /library/scrlbar.tcl | |
| parent | aeab7d5c4d1f242492acb6e29416f03bffb7dbf8 (diff) | |
| download | tk-037024d2e3f28c239d71fe93bdb82ad816965663.zip tk-037024d2e3f28c239d71fe93bdb82ad816965663.tar.gz tk-037024d2e3f28c239d71fe93bdb82ad816965663.tar.bz2 | |
Put ScrollByPixels back in the tk namespace,
but named ScrollbarScrollByPixels.
Diffstat (limited to 'library/scrlbar.tcl')
| -rw-r--r-- | library/scrlbar.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl index 32e02f2..19ff33a 100644 --- a/library/scrlbar.tcl +++ b/library/scrlbar.tcl @@ -140,10 +140,10 @@ bind Scrollbar <MouseWheel> { bind Scrollbar <Control-MouseWheel> { lassign [tk::PreciseScrollDeltas %D] deltaX deltaY if {$deltaX != 0} { - ScrollByPixels %W h $deltaX + tk::ScrollbarScrollByPixels %W h $deltaX } if {$deltaY != 0} { - ScrollByPixels %W v $deltaY + tk::ScrollbarScrollByPixels %W v $deltaY } } @@ -307,7 +307,7 @@ proc ::tk::ScrollEndDrag {w x y} { set Priv(initPos) "" } -# ScrollByPixels -- +# ::tk::ScrollbarScrollByPixels -- # This procedure tells the scrollbar's associated widget to scroll up # or down by a given number of pixels. It only works with scrollbars # because it uses the delta command. @@ -318,7 +318,7 @@ proc ::tk::ScrollEndDrag {w x y} { # horizontal, "v" for vertical. # amount - How many pixels to scroll. -proc ScrollByPixels {w orient amount} { +proc ::tk::ScrollbarScrollByPixels {w orient amount} { set cmd [$w cget -command] if {$cmd eq ""} { return |