diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-16 15:01:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-16 15:01:34 (GMT) |
| commit | e7fd8a6d2e5e2e7c3a4b8b4a833e7cf5778e27e7 (patch) | |
| tree | 3fe07f8bc05a6e41dd34bbaf74ab0ee3af64fb92 /library/scrlbar.tcl | |
| parent | a93e9fd325f4d3a6f8852b92b52b168127bd5f23 (diff) | |
| download | tk-e7fd8a6d2e5e2e7c3a4b8b4a833e7cf5778e27e7.zip tk-e7fd8a6d2e5e2e7c3a4b8b4a833e7cf5778e27e7.tar.gz tk-e7fd8a6d2e5e2e7c3a4b8b4a833e7cf5778e27e7.tar.bz2 | |
scrollbar and iconlist bindings can be simplified too
Diffstat (limited to 'library/scrlbar.tcl')
| -rw-r--r-- | library/scrlbar.tcl | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl index a25194a..a8ea3bf 100644 --- a/library/scrlbar.tcl +++ b/library/scrlbar.tcl @@ -135,12 +135,6 @@ bind Scrollbar <MouseWheel> { bind Scrollbar <Option-MouseWheel> { tk::ScrollByUnits %W hv [expr {%D/-3.0}] } -bind Scrollbar <Shift-MouseWheel> { - tk::ScrollByUnits %W hv [expr {%D/-30.0}] -} -bind Scrollbar <Shift-Option-MouseWheel> { - tk::ScrollByUnits %W hv [expr {%D/-3.0}] -} # tk::ScrollButtonDown -- # This procedure is invoked when a button is pressed in a scrollbar. |