diff options
Diffstat (limited to 'library/ttk/combobox.tcl')
| -rw-r--r-- | library/ttk/combobox.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index c253eb0..1b9d4cb 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -59,7 +59,7 @@ bind TCombobox <Shift-MouseWheel> { bind TCombobox <TouchpadScroll> { lassign [tk::PreciseScrollDeltas %D] deltaX deltaY # TouchpadScroll events fire about 60 times per second. - if {$deltaY != 0 && [expr {%# %% 15}] == 0} { + if {$deltaY != 0 && %# %% 15 == 0} { ttk::combobox::Scroll %W [expr {$deltaY > 0 ? -1 : 1}] } } |