git: 87be8aae3568 - main - mail/exmh2: Scolling the folder list accepts only units
Cy Schubert
cy at FreeBSD.org
Mon Sep 13 16:49:34 UTC 2021
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
More information about the dev-commits-ports-main
mailing list