diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-04 16:03:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-04 16:03:28 (GMT) |
| commit | a80c366ac381ed6bb9cef8156c25d9d9922488b4 (patch) | |
| tree | 9074a22f15e216ded0a3b27acf422c196bdb38f4 /library/ttk | |
| parent | 05edd0650e5e75d4660339262c894970be34fe21 (diff) | |
| parent | 6fc711197df28ee4520dc3c733981693ba54a15a (diff) | |
| download | tk-a80c366ac381ed6bb9cef8156c25d9d9922488b4.zip tk-a80c366ac381ed6bb9cef8156c25d9d9922488b4.tar.gz tk-a80c366ac381ed6bb9cef8156c25d9d9922488b4.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/utils.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index 181c208..4b925f4 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -285,8 +285,8 @@ proc ttk::copyBindings {from to} { # proc ttk::bindMouseWheel {bindtag callback} { - bind $bindtag <MouseWheel> [append callback { %D -120.0}] - bind $bindtag <Option-MouseWheel> [append callback { %D -12.0}] + bind $bindtag <MouseWheel> "$callback %D -120.0" + bind $bindtag <Option-MouseWheel> "$callback %D -12.0" } ## Mousewheel bindings for standard scrollable widgets. |