git: 87be8aae3568 - main - mail/exmh2: Scolling the folder list accepts only units

[Cy Schubert]

The branch main has been updated by cy:

URL: https://cgit.FreeBSD.org/ports/commit/?id=87be8aae35682d29e479ec9b8cd2058e11f9e6d9

commit 87be8aae35682d29e479ec9b8cd2058e11f9e6d9
Author:     Cy Schubert <cy at FreeBSD.org>
AuthorDate: 2021-09-06 13:58:34 +0000
Commit:     Cy Schubert <cy at 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