Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix [75d38f8608]: touchpad two finger scroll does not work correctly with listbox on Windows |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-75d38f8608 |
| Files: | files | file ages | folders |
| SHA3-256: |
da31d31c18463d152f0a19485caf0a23 |
| User & Date: | fvogel 2018-03-20 21:05:24 |
Context
|
2018-03-31
| ||
| 07:17 | Solution from dnikolajevich made thread safe. Thanks to Christian Werner for providing this patch. check-in: fb3f34ae user: fvogel tags: bug-75d38f8608 | |
|
2018-03-25
| ||
| 15:59 | Add test listbox-32 to check for support of high resolution 'mouse wheels', actually for 2 fingers touch scroll on some devices. Thanks to dnikolajevich for providing the test. check-in: 88bcfc9b user: fvogel tags: bug-75d38f8608 | |
|
2018-03-20
| ||
| 21:11 | Add missing documentation about items of the tk::Priv array check-in: 8d63df1b user: fvogel tags: bug-75d38f8608 | |
| 21:05 | Fix [75d38f8608]: touchpad two finger scroll does not work correctly with listbox on Windows check-in: da31d31c user: fvogel tags: bug-75d38f8608 | |
|
2018-03-15
| ||
| 20:58 | Fix [3e490c1386]: What the proxy is is not clearly documented in the panedwindow man page check-in: 8014f1c6 user: fvogel tags: core-8-6-branch | |
Changes
Changes to library/listbox.tcl.
| ︙ | ︙ | |||
191 192 193 194 195 196 197 |
%W xview scroll [expr {- (%D)}] units
}
bind Listbox <Shift-Option-MouseWheel> {
%W xview scroll [expr {-10 * (%D)}] units
}
} else {
bind Listbox <MouseWheel> {
| > > | > | > > > | > > | 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 |
%W xview scroll [expr {- (%D)}] units
}
bind Listbox <Shift-Option-MouseWheel> {
%W xview scroll [expr {-10 * (%D)}] units
}
} else {
bind Listbox <MouseWheel> {
incr tk::Priv(wheel_acc_v_%W) %D
if {abs($tk::Priv(wheel_acc_v_%W)) >= 120} {
%W yview scroll [expr {- ($tk::Priv(wheel_acc_v_%W) / 120) * 4}] units
set tk::Priv(wheel_acc_v_%W) 0
}
}
bind Listbox <Shift-MouseWheel> {
incr tk::Priv(wheel_acc_h_%W) %D
if {abs($tk::Priv(wheel_acc_h_%W)) >= 120} {
%W xview scroll [expr {- ($tk::Priv(wheel_acc_h_%W) / 120) * 4}] units
set tk::Priv(wheel_acc_h_%W) 0
}
}
}
if {"x11" eq [tk windowingsystem]} {
# Support for mousewheels on Linux/Unix commonly comes through mapping
# the wheel to the extended buttons. If you have a mousewheel, find
# Linux configuration info at:
|
| ︙ | ︙ |