diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-22 14:16:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-22 14:16:42 (GMT) |
commit | e1486d48b18bdd738d42c22f61f597b17ea02fc4 (patch) | |
tree | f1ee74148eb7e6b073d776877344a0a9342ced75 /library/scrlbar.tcl | |
parent | 4424dff3092a2ea0574195815aca62fd5c751b08 (diff) | |
parent | 3c4e724f033bf187c86fe8b49e53abe44671ee47 (diff) | |
download | tk-e1486d48b18bdd738d42c22f61f597b17ea02fc4.zip tk-e1486d48b18bdd738d42c22f61f597b17ea02fc4.tar.gz tk-e1486d48b18bdd738d42c22f61f597b17ea02fc4.tar.bz2 |
Merge trunk.
Eliminate use of "mouseunits", was not a good idea. Move code out of UpdateButtonEventState() function.
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 a20f1a0..d797b24 100644 --- a/library/scrlbar.tcl +++ b/library/scrlbar.tcl @@ -130,16 +130,16 @@ bind Scrollbar <<LineEnd>> { } bind Scrollbar <MouseWheel> { - tk::ScrollByUnits %W v [expr {-((%D+15) / 30)}] + tk::ScrollByUnits %W v [expr {-(%D / 30)}] } bind Scrollbar <Option-MouseWheel> { - tk::ScrollByUnits %W v [expr {-((%D+1) / 3)}] + tk::ScrollByUnits %W v [expr {-(%D / 3)}] } bind Scrollbar <Shift-MouseWheel> { - tk::ScrollByUnits %W h [expr {-((%D+15) / 30)}] + tk::ScrollByUnits %W h [expr {-(%D / 30)}] } bind Scrollbar <Shift-Option-MouseWheel> { - tk::ScrollByUnits %W h [expr {-((%D+1) / 3)}] + tk::ScrollByUnits %W h [expr {-(%D / 3)}] } # tk::ScrollButtonDown -- |