sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-04-28 01:26:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

mail/exmh2: After falling back to tk86 make mouse wheel work again

Browse source 
Two patches specific to tk87 will not work with tk86.

MFH:		2025Q1
This commit is contained in:
Cy Schubert 2025-01-08 08:01:50 -08:00
parent d6ec4b7b1f
commit bd3a42e85f
3 changed files with 1 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mail/exmh2/Makefile
View file

@ -2,7 +2,7 @@
PORTNAME= exmh PORTNAME= exmh
PORTVERSION= 2.9.0 PORTVERSION= 2.9.0
PORTREVISION= 7 PORTREVISION= 8
CATEGORIES+= mail tk CATEGORIES+= mail tk
# XXX: Standard SF fails with a hung download # XXX: Standard SF fails with a hung download
MASTER_SITES= https://sourceforge.net/projects/${PORTNAME}/files/${PORTNAME}/${PORTVERSION}/ MASTER_SITES= https://sourceforge.net/projects/${PORTNAME}/files/${PORTNAME}/${PORTVERSION}/

35
mail/exmh2/files/patch-lib_exwin.tcl
View file

@ -1,35 +0,0 @@
--- lib/exwin.tcl.orig 2017-11-09 20:42:24.000000000 -0800
+++ lib/exwin.tcl 2021-09-06 06:53:11.916007000 -0700
@@ -101,12 +101,26 @@
}
proc mscroll {bindtag num} {
- bind $bindtag <Button-5> [list %W yview scroll $num units]
- bind $bindtag <Button-4> [list %W yview scroll -$num units]
- bind $bindtag <Shift-Button-5> [list %W yview scroll 1 units]
- bind $bindtag <Shift-Button-4> [list %W yview scroll -1 units]
- bind $bindtag <Control-Button-5> [list %W yview scroll 1 pages]
- bind $bindtag <Control-Button-4> [list %W yview scroll -1 pages]
+ # Prior to tcl 8.7a5:
+ # bind $bindtag <Button-5> [list %W yview scroll $num units]
+ # bind $bindtag <Button-4> [list %W yview scroll -$num units]
+ # bind $bindtag <Shift-Button-5> [list %W yview scroll 1 units]
+ # bind $bindtag <Shift-Button-4> [list %W yview scroll -1 units]
+ # 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. See
+ # https://core.tcl-lang.org/tips/doc/trunk/tip/474.md for more info:
+ 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 }
}

11
mail/exmh2/files/patch-lib_fdisp.tcl
View file

@ -1,11 +0,0 @@
--- 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