diff options
| author | csaba <csaba> | 2024-07-17 10:47:49 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2024-07-17 10:47:49 (GMT) |
| commit | 52aa91a44c447c1641518dfb622155c09761c6bc (patch) | |
| tree | 6600e2247329f21895e432e9b62df391453e50f5 /library/text.tcl | |
| parent | 6c40142971bc757303b36f55caf599bffe6d1d53 (diff) | |
| download | tk-52aa91a44c447c1641518dfb622155c09761c6bc.zip tk-52aa91a44c447c1641518dfb622155c09761c6bc.tar.gz tk-52aa91a44c447c1641518dfb622155c09761c6bc.tar.bz2 | |
Fix for bug [d1a5067111], related to the TouchpadScroll event bindings.
Diffstat (limited to 'library/text.tcl')
| -rw-r--r-- | library/text.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/text.tcl b/library/text.tcl index 5003ade..37aa387 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -469,12 +469,12 @@ bind Text <Shift-Option-MouseWheel> { tk::MouseWheel %W x [tk::ScaleNum %D] -1.2 pixels } bind Text <TouchpadScroll> { - lassign [tk::PreciseScrollDeltas %D] tk::Priv::deltaX tk::Priv::deltaY - if {$tk::Priv::deltaX != 0} { - %W xview scroll [tk::ScaleNum [expr {-$tk::Priv::deltaX}]] pixels + lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY) + if {$tk::Priv(deltaX) != 0} { + %W xview scroll [tk::ScaleNum [expr {-$tk::Priv(deltaX)}]] pixels } - if {$tk::Priv::deltaY != 0} { - %W yview scroll [tk::ScaleNum [expr {-$tk::Priv::deltaY}]] pixels + if {$tk::Priv(deltaY) != 0} { + %W yview scroll [tk::ScaleNum [expr {-$tk::Priv(deltaY)}]] pixels } } |