diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-09 18:31:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-09 18:31:59 (GMT) |
| commit | 8132e24b6019dd64947f1c9c1f98ebc8b00711ab (patch) | |
| tree | 75f9d6e78c0d719bdab8bc2c8282c883de8ac087 /library/scrlbar.tcl | |
| parent | ff08eb67d0553702103f0b726742ce3de044d30f (diff) | |
| download | tk-8132e24b6019dd64947f1c9c1f98ebc8b00711ab.zip tk-8132e24b6019dd64947f1c9c1f98ebc8b00711ab.tar.gz tk-8132e24b6019dd64947f1c9c1f98ebc8b00711ab.tar.bz2 | |
When Shift-bindings are equal to the non-shift ones, they can be eliminated: The non-shift one will do this work already.
Diffstat (limited to 'library/scrlbar.tcl')
| -rw-r--r-- | library/scrlbar.tcl | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl index 510713a..8106b3d 100644 --- a/library/scrlbar.tcl +++ b/library/scrlbar.tcl @@ -136,12 +136,6 @@ if {[tk windowingsystem] eq "aqua"} { bind Scrollbar <Option-MouseWheel> { tk::ScrollByUnits %W hv [expr {-10 * (%D)}] } - bind Scrollbar <Shift-MouseWheel> { - tk::ScrollByUnits %W v [expr {-(%D)}] - } - bind Scrollbar <Shift-Option-MouseWheel> { - tk::ScrollByUnits %W v [expr {-10 * (%D)}] - } } else { # We must make sure that positive and negative movements are rounded # equally to integers, avoiding the problem that @@ -156,22 +150,13 @@ if {[tk windowingsystem] eq "aqua"} { tk::ScrollByUnits %W hv [expr {(29-%D)/30}] } } - bind Scrollbar <Shift-MouseWheel> { - if {%D >= 0} { - tk::ScrollByUnits %W h [expr {-%D/30}] - } else { - tk::ScrollByUnits %W h [expr {(29-%D)/30}] - } - } } if {[tk windowingsystem] eq "x11"} { bind Scrollbar <Button-4> {tk::ScrollByUnits %W hv -5} bind Scrollbar <Button-5> {tk::ScrollByUnits %W hv 5} - bind Scrollbar <Shift-Button-4> {tk::ScrollByUnits %W h -5} - bind Scrollbar <Shift-Button-5> {tk::ScrollByUnits %W h 5} - bind Scrollbar <Button-6> {tk::ScrollByUnits %W h -5} - bind Scrollbar <Button-7> {tk::ScrollByUnits %W h 5} + bind Scrollbar <Button-6> {tk::ScrollByUnits %W hv -5} + bind Scrollbar <Button-7> {tk::ScrollByUnits %W hv 5} } # tk::ScrollButtonDown -- |