Date: Mon, 13 Sep 2021 16:49:33 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: 87be8aae3568 - main - mail/exmh2: Scolling the folder list accepts only units Message-ID: <202109131649.18DGnXLM005402@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=87be8aae35682d29e479ec9b8cd2058e11f9e6d9 commit 87be8aae35682d29e479ec9b8cd2058e11f9e6d9 Author: Cy Schubert <cy@FreeBSD.org> AuthorDate: 2021-09-06 13:58:34 +0000 Commit: Cy Schubert <cy@FreeBSD.org> CommitDate: 2021-09-13 15:53:18 +0000 mail/exmh2: Scolling the folder list accepts only units Units, which do not work in the scan listing window or the main text windows, must be used int he folder display window. We create a new fmscroll function just for the folder display window. --- mail/exmh2/Makefile | 2 +- mail/exmh2/files/patch-lib_exwin.tcl | 11 +++++++++-- mail/exmh2/files/patch-lib_fdisp.tcl | 11 +++++++++++ 3 files changed, 21 insertions(+), 3 deletions(-) diff --git a/mail/exmh2/Makefile b/mail/exmh2/Makefile index 24566242400d..4fe67e44da7b 100644 --- a/mail/exmh2/Makefile +++ b/mail/exmh2/Makefile @@ -4,7 +4,7 @@ PORTNAME= exmh PORTVERSION= 2.9.0 -PORTREVISION= 4 +PORTREVISION= 5 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 0e9c3165f158..c4e739d62e0a 100644 --- a/mail/exmh2/files/patch-lib_exwin.tcl +++ b/mail/exmh2/files/patch-lib_exwin.tcl @@ -1,6 +1,6 @@ --- lib/exwin.tcl.orig 2017-11-09 20:42:24.000000000 -0800 -+++ lib/exwin.tcl 2021-08-30 21:28:25.291533000 -0700 -@@ -101,12 +101,19 @@ ++++ lib/exwin.tcl 2021-09-06 06:53:11.916007000 -0700 +@@ -101,12 +101,26 @@ } proc mscroll {bindtag num} { @@ -23,6 +23,13 @@ + 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 } ++} ++ ++ ++proc fmscroll {bindtag num} { ++ bind $bindtag <MouseWheel> [ list tk::MouseWheel %W y %D [ expr 200/-$num ] units ] ++ bind $bindtag <Shift-MouseWheel> { tk::MouseWheel %W y %D [expr 200/-10 ] units } ++ bind $bindtag <Control-MouseWheel> { tk::MouseWheel %W y %D -1 units } } diff --git a/mail/exmh2/files/patch-lib_fdisp.tcl b/mail/exmh2/files/patch-lib_fdisp.tcl new file mode 100644 index 000000000000..262d80a1cf8f --- /dev/null +++ b/mail/exmh2/files/patch-lib_fdisp.tcl @@ -0,0 +1,11 @@ +--- lib/fdisp.tcl.orig 2017-11-09 20:42:24.000000000 -0800 ++++ lib/fdisp.tcl 2021-09-06 06:49:07.808426000 -0700 +@@ -254,7 +254,7 @@ + + # Enable wheelscroll if desired + if {$exwin(wheelEnabled)} { +- mscroll $fdisp(canvas) 1 ++ fmscroll $fdisp(canvas) 5 + } + + # fdisp popup color hack
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?202109131649.18DGnXLM005402>