diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl b/Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl index f6a6c9eac8e..257191493ef 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl @@ -303,19 +303,14 @@ 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}\]" } } ## Mousewheel bindings for standard scrollable widgets. # -# Usage: [ttk::copyBindings TtkScrollable $bindtag] -# -# $bindtag should be for a widget that supports the -# standard scrollbar protocol. -# if {[tk windowingsystem] eq "x11"} { bind TtkScrollable <Button-4> { %W yview scroll -5 units } @@ -325,18 +320,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* |