Subject: | scrollwheel doesn't work for horizontal scrollbars |
Date: | Fri, 19 Jul 2019 19:51:42 +0300 |
To: | bug-Tk [...] rt.cpan.org |
From: | Phil Carmody <pc+dev [...] asdf.org> |
https://metacpan.org/source/SREZIC/Tk-804.034/Scrollbar/Scrollbar.pm
In ClassInit, this bit of code:
# X11 mousewheel - honour for horizontal too.
$mw->bind($class, '<4>', ['ScrlByUnits','hv',-5]);
$mw->bind($class, '<5>', ['ScrlByUnits','hv', 5]);
Is followed shortly by this bit of code:
$mw->bind($class, '<4>', ['ScrlByUnits','v',-3]);
$mw->bind($class, '<5>', ['ScrlByUnits','v', 3]);
The comment implies that the intention was to support wheel actions
on horizontal scrollbars, but the second set of lines disable that.
I've not checked the git history for the order of arrival of those
lines, or the reasons behind them, but one of them must be wrong.
Personal preference is that the guy who wrote the comment was right,
and therefore that the latter lines should be nuked.
Cheers,
Phil
--
We are no longer hunters and nomads. No longer awed and frightened, as we have
gained some understanding of the world in which we live. As such, we can cast
aside childish remnants from the dawn of our civilization.
-- NotSanguine on SoylentNews, after Eugen Weber in /The Western Tradition/