diff options
| author | marc_culler <marc.culler@gmail.com> | 2023-11-24 19:41:37 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2023-11-24 19:41:37 (GMT) |
| commit | c2966d199dcef759fb9bbab08c06116b080e7f7c (patch) | |
| tree | e4d73de0e4aebb31c8adc4834672f498148b476a /library/listbox.tcl | |
| parent | 8030d9c4da197f2f726b52ea0904170abdec3c89 (diff) | |
| download | tk-c2966d199dcef759fb9bbab08c06116b080e7f7c.zip tk-c2966d199dcef759fb9bbab08c06116b080e7f7c.tar.gz tk-c2966d199dcef759fb9bbab08c06116b080e7f7c.tar.bz2 | |
Remove the ScaleNum invocations from the listbox MouseWheel bindings.
Diffstat (limited to 'library/listbox.tcl')
| -rw-r--r-- | library/listbox.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index 43ba088..731ef33 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -176,16 +176,16 @@ bind Listbox <B2-Motion> { %W scan dragto %x %y } bind Listbox <MouseWheel> { - tk::MouseWheel %W y [tk::ScaleNum %D] -40.0 units + tk::MouseWheel %W y %D -40.0 units } bind Listbox <Option-MouseWheel> { - tk::MouseWheel %W y [tk::ScaleNum %D] -12.0 units + tk::MouseWheel %W y %D -12.0 units } bind Listbox <Shift-MouseWheel> { - tk::MouseWheel %W x [tk::ScaleNum %D] -40.0 units + tk::MouseWheel %W x %D -40.0 units } bind Listbox <Shift-Option-MouseWheel> { - tk::MouseWheel %W x [tk::ScaleNum %D] -12.0 units + tk::MouseWheel %W x %D -12.0 units } bind Listbox <Control-MouseWheel> { lassign [tk::PreciseScrollDeltas %D] deltaX deltaY |