diff options
author | marc_culler <marc.culler@gmail.com> | 2023-11-22 03:31:45 (GMT) |
---|---|---|
committer | marc_culler <marc.culler@gmail.com> | 2023-11-22 03:31:45 (GMT) |
commit | 35f3b55d406eb50ce5da2d70ff50cba959f1f139 (patch) | |
tree | 5891e2105f5924feb403746751649cf38b8e8856 /library | |
parent | b0d31264c787b4be2ebc7c76087cab702a2a5aed (diff) | |
download | tk-35f3b55d406eb50ce5da2d70ff50cba959f1f139.zip tk-35f3b55d406eb50ce5da2d70ff50cba959f1f139.tar.gz tk-35f3b55d406eb50ce5da2d70ff50cba959f1f139.tar.bz2 |
Fix the low resolution events.
Diffstat (limited to 'library')
-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 c92d41d..43ba088 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] -30.0 units + tk::MouseWheel %W y [tk::ScaleNum %D] -40.0 units } bind Listbox <Option-MouseWheel> { - tk::MouseWheel %W y [tk::ScaleNum %D] -10.0 units + tk::MouseWheel %W y [tk::ScaleNum %D] -12.0 units } bind Listbox <Shift-MouseWheel> { - tk::MouseWheel %W x [tk::ScaleNum %D] -1.2 units + tk::MouseWheel %W x [tk::ScaleNum %D] -40.0 units } bind Listbox <Shift-Option-MouseWheel> { - tk::MouseWheel %W x [tk::ScaleNum %D] -0.3 units + tk::MouseWheel %W x [tk::ScaleNum %D] -12.0 units } bind Listbox <Control-MouseWheel> { lassign [tk::PreciseScrollDeltas %D] deltaX deltaY |