Date: Tue, 31 Aug 2021 19:26:14 GMT From: Cy Schubert <cy@FreeBSD.org> To: ports-committers@FreeBSD.org, dev-commits-ports-all@FreeBSD.org, dev-commits-ports-main@FreeBSD.org Subject: git: 4cf22b504ccf - main - mail/exmh2: Adjust MouseWheel scrolling parameters Message-ID: <202108311926.17VJQE8X000787@gitrepo.freebsd.org>
next in thread | raw e-mail | index | archive | help
The branch main has been updated by cy: URL: https://cgit.FreeBSD.org/ports/commit/?id=4cf22b504ccf9e40971e8a7bcc00c91b6e61ccaf commit 4cf22b504ccf9e40971e8a7bcc00c91b6e61ccaf Author: Cy Schubert <cy@FreeBSD.org> AuthorDate: 2021-08-31 15:17:07 +0000 Commit: Cy Schubert <cy@FreeBSD.org> CommitDate: 2021-08-31 19:25:52 +0000 mail/exmh2: Adjust MouseWheel scrolling parameters Units and pages don't mean the same thing they did before. The number of pixels is in fact a divisor. - MouseWheel scrolls one line in the Folder Display box (no change). - MouseWheel scrolls five lines in the message box (no change). - Shift-MouseWheel scrolls one line (no change). - Control-MouseWheel scrolls ten lines (changed from a page as page doesn't work any more). --- mail/exmh2/Makefile | 2 +- mail/exmh2/files/patch-lib_exwin.tcl | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/mail/exmh2/Makefile b/mail/exmh2/Makefile index a8533f5ef6c4..adf14881c048 100644 --- a/mail/exmh2/Makefile +++ b/mail/exmh2/Makefile @@ -4,7 +4,7 @@ PORTNAME= exmh PORTVERSION= 2.9.0 -PORTREVISION= 2 +PORTREVISION= 3 CATEGORIES+= mail tk # XXX: Standard SF fails with a hung download MASTER_SITES= https://sourceforge.net/projects/${PORTNAME}/files/${PORTNAME}/${PORTVERSION}/ diff --git a/mail/exmh2/files/patch-lib_exwin.tcl b/mail/exmh2/files/patch-lib_exwin.tcl index cb6639714706..0e9c3165f158 100644 --- a/mail/exmh2/files/patch-lib_exwin.tcl +++ b/mail/exmh2/files/patch-lib_exwin.tcl @@ -18,11 +18,11 @@ + # bind $bindtag <Control-Button-5> [list %W yview scroll 1 pages] + # bind $bindtag <Control-Button-4> [list %W yview scroll -1 pages] + -+ # tcl 8.7a5 and later (units can be pixels/units/pages). See ++ # tcl 8.7a5 and later. See + # https://core.tcl-lang.org/tips/doc/trunk/tip/474.md for more info: -+ bind $bindtag <MouseWheel> [ list tk::MouseWheel %W y %D -$num units ] -+ bind $bindtag <Shift-MouseWheel> { tk::MouseWheel %W y %D -1 units } -+ bind $bindtag <Shift-MouseWheel> { tk::MouseWheel %W y %D -1 pages } ++ bind $bindtag <MouseWheel> [ list tk::MouseWheel %W y %D [ expr 10/-$num ] pixels ] ++ bind $bindtag <Shift-MouseWheel> { tk::MouseWheel %W y %D -10 pixels } ++ bind $bindtag <Control-MouseWheel> { tk::MouseWheel %W y %D -1 pixels } }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?202108311926.17VJQE8X000787>