summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tk8.6/ttk/utils.tcl21
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*