From owner-dev-commits-ports-main@freebsd.org Mon Sep 13 16:49:34 2021 Return-Path: Delivered-To: dev-commits-ports-main@mailman.nyi.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2610:1c1:1:606c::19:1]) by mailman.nyi.freebsd.org (Postfix) with ESMTP id 4B4C067E208; Mon, 13 Sep 2021 16:49:34 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from mxrelay.nyi.freebsd.org (mxrelay.nyi.freebsd.org [IPv6:2610:1c1:1:606c::19:3]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256 client-signature RSA-PSS (4096 bits) client-digest SHA256) (Client CN "mxrelay.nyi.freebsd.org", Issuer "R3" (verified OK)) by mx1.freebsd.org (Postfix) with ESMTPS id 4H7XWf0BTsz3CMq; Mon, 13 Sep 2021 16:49:34 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from gitrepo.freebsd.org (gitrepo.freebsd.org [IPv6:2610:1c1:1:6068::e6a:5]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256) (Client did not present a certificate) by mxrelay.nyi.freebsd.org (Postfix) with ESMTPS id C2F262A0C; Mon, 13 Sep 2021 16:49:33 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from gitrepo.freebsd.org ([127.0.1.44]) by gitrepo.freebsd.org (8.16.1/8.16.1) with ESMTP id 18DGnXkW005403; Mon, 13 Sep 2021 16:49:33 GMT (envelope-from git@gitrepo.freebsd.org) Received: (from git@localhost) by gitrepo.freebsd.org (8.16.1/8.16.1/Submit) id 18DGnXLM005402; Mon, 13 Sep 2021 16:49:33 GMT (envelope-from git) Date: Mon, 13 Sep 2021 16:49:33 GMT Message-Id: <202109131649.18DGnXLM005402@gitrepo.freebsd.org> To: ports-committers@FreeBSD.org, dev-commits-ports-all@FreeBSD.org, dev-commits-ports-main@FreeBSD.org From: Cy Schubert Subject: git: 87be8aae3568 - main - mail/exmh2: Scolling the folder list accepts only units MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Git-Committer: cy X-Git-Repository: ports X-Git-Refname: refs/heads/main X-Git-Reftype: branch X-Git-Commit: 87be8aae35682d29e479ec9b8cd2058e11f9e6d9 Auto-Submitted: auto-generated X-BeenThere: dev-commits-ports-main@freebsd.org X-Mailman-Version: 2.1.34 Precedence: list List-Id: Commits to the main branch of the FreeBSD ports repository List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 13 Sep 2021 16:49:34 -0000 The branch main has been updated by cy: URL: https://cgit.FreeBSD.org/ports/commit/?id=87be8aae35682d29e479ec9b8cd2058e11f9e6d9 commit 87be8aae35682d29e479ec9b8cd2058e11f9e6d9 Author: Cy Schubert AuthorDate: 2021-09-06 13:58:34 +0000 Commit: Cy Schubert 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 [ list tk::MouseWheel %W y %D [ expr 10/-$num ] pixels ] + bind $bindtag { tk::MouseWheel %W y %D -10 pixels } + bind $bindtag { tk::MouseWheel %W y %D -1 pixels } ++} ++ ++ ++proc fmscroll {bindtag num} { ++ bind $bindtag [ list tk::MouseWheel %W y %D [ expr 200/-$num ] units ] ++ bind $bindtag { tk::MouseWheel %W y %D [expr 200/-10 ] units } ++ bind $bindtag { 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