diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-11 07:19:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-11 07:19:09 (GMT) |
| commit | 9673afe9f455659d9f69a54a2e190b5b85db5dc3 (patch) | |
| tree | bc950385489576fce1f10a3bfed9628f8376a883 /library | |
| parent | a7b8a9439596b9210dc77928ff0289bc04ba5ecc (diff) | |
| download | tk-9673afe9f455659d9f69a54a2e190b5b85db5dc3.zip tk-9673afe9f455659d9f69a54a2e190b5b85db5dc3.tar.gz tk-9673afe9f455659d9f69a54a2e190b5b85db5dc3.tar.bz2 | |
Fix [7beaed7db6]: Typo in ttk binding script in Tk 8.6.11. Also remove some unnecessary braces.
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/utils.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index f6a6c9e..2317468 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -303,9 +303,9 @@ proc ttk::bindMouseWheel {bindtag callback} { } if {[tk windowingsystem] eq "aqua"} { bind $bindtag <MouseWheel> "$callback \[expr {-%D}\]" - bind $bindtag <Option-MouseWheel> "$callback \[expr {-10*%D}\]" + bind $bindtag <Option-MouseWheel> "$callback \[expr {-10 * %D}\]" } else { - bind $bindtag <MouseWheel> "$callback \[expr {-%D/120)}\]" + bind $bindtag <MouseWheel> "$callback \[expr {-%D / 120}\]" } } @@ -325,18 +325,18 @@ if {[tk windowingsystem] eq "x11"} { } if {[tk windowingsystem] eq "aqua"} { bind TtkScrollable <MouseWheel> \ - { %W yview scroll [expr {-(%D)}] units } + { %W yview scroll [expr {-%D}] units } bind TtkScrollable <Shift-MouseWheel> \ - { %W xview scroll [expr {-(%D)}] units } + { %W xview scroll [expr {-%D}] units } bind TtkScrollable <Option-MouseWheel> \ - { %W yview scroll [expr {-10 * (%D)}] units } + { %W yview scroll [expr {-10 * %D}] units } bind TtkScrollable <Shift-Option-MouseWheel> \ - { %W xview scroll [expr {-10 * (%D)}] units } + { %W xview scroll [expr {-10 * %D}] units } } else { bind TtkScrollable <MouseWheel> \ - { %W yview scroll [expr {-(%D / 120)}] units } + { %W yview scroll [expr {-%D / 120}] units } bind TtkScrollable <Shift-MouseWheel> \ - { %W xview scroll [expr {-(%D / 120)}] units } + { %W xview scroll [expr {-%D / 120}] units } } #*EOF* |