From ad94f2089df088d521812d9eeed9297412711543 Mon Sep 17 00:00:00 2001
From: Jon Trulson <jon@radscan.com>
Date: Mon, 14 Oct 2019 14:08:43 -0600
Subject: [PATCH] dtterm: add scroll wheel support

This patch was manually added via a diff supplied from a user on the
CDE mailing list: Michele Ghisolfo <ghisolfo.m@gmail.com>
---
 cde/lib/DtTerm/Term/Term.c | 38 ++++++++++++++++++++++----------------
 1 file changed, 22 insertions(+), 16 deletions(-)

diff --git a/cde/lib/DtTerm/Term/Term.c b/cde/lib/DtTerm/Term/Term.c
index 22a12a6c..f6109712 100644
--- a/cde/lib/DtTerm/Term/Term.c
+++ b/cde/lib/DtTerm/Term/Term.c
@@ -232,42 +232,42 @@ static XmSyntheticResource GetResources[] =
  * Anyway, remove KP_Multiply entry from defaultTranslations[]
  */
 static char defaultTranslations[] = "\
-        <Key>osfCancel:         process-cancel()\n\
-	<Key>osfCopy:		copy-clipboard()\n\
-	<Key>osfCut:		copy-clipboard()\n\
-	<Key>osfPaste:		paste-clipboard()\n\
-        <Key>osfBeginLine:      beginning-of-buffer()\n\
+        :<Key>osfCancel:         process-cancel()\n\
+	:<Key>osfCopy:		copy-clipboard()\n\
+	:<Key>osfCut:		copy-clipboard()\n\
+	:<Key>osfPaste:		paste-clipboard()\n\
+        :<Key>osfBeginLine:      beginning-of-buffer()\n\
         <Key>Home:              beginning-of-buffer()\n\
-        <Key>osfEndLine:        end-of-buffer()\n\
+        :<Key>osfEndLine:        end-of-buffer()\n\
         <Key>End:               end-of-buffer()\n\
 	Shift<Key>osfUp:	scroll(1,line)\n\
 	Shift<Key>Up:	        scroll(1,line)\n\
 	Shift<Key>osfDown:	scroll(-1,line)\n\
 	Shift<Key>Down:	        scroll(-1,line)\n\
-	<Key>osfUp:		move-cursor(up)\n\
+	:<Key>osfUp:		move-cursor(up)\n\
 	<Key>Up:		move-cursor(up)\n\
-	<Key>osfDown:		move-cursor(down)\n\
+	:<Key>osfDown:		move-cursor(down)\n\
 	<Key>Down:		move-cursor(down)\n\
-	<Key>osfLeft:		move-cursor(backward)\n\
+	:<Key>osfLeft:		move-cursor(backward)\n\
 	<Key>Left:		move-cursor(backward)\n\
-	<Key>osfRight:		move-cursor(forward)\n\
+	:<Key>osfRight:		move-cursor(forward)\n\
 	<Key>Right:		move-cursor(forward)\n\
 	<Key>Find:	        vt-edit-key(find)\n\
-	<Key>osfInsert:         vt-edit-key(insert)\n\
+	:<Key>osfInsert:         vt-edit-key(insert)\n\
 	<Key>Insert:            vt-edit-key(insert)\n\
 	:<Key>osfDelete:         vt-edit-key(delete)\n\
 	:<Key>Delete:            vt-edit-key(delete)\n\
-	<Key>osfSelect:	        vt-edit-key(select)\n\
+	:<Key>osfSelect:	        vt-edit-key(select)\n\
 	<Key>Select:	        vt-edit-key(select)\n\
-	~Shift<Key>osfPageUp:	vt-edit-key(prior)\n\
+	:~Shift<Key>osfPageUp:	vt-edit-key(prior)\n\
 	~Shift<Key>Prior:	vt-edit-key(prior)\n\
-	~Shift<Key>osfPageDown:	vt-edit-key(next)\n\
+	:~Shift<Key>osfPageDown:	vt-edit-key(next)\n\
 	~Shift<Key>Next:	vt-edit-key(next)\n\
 	<Key>Help:		vt-edit-key(help)\n\
 	<Key>Menu:		vt-edit-key(do)\n\
-	<Key>osfPageUp:		scroll(-1,page)\n\
+	:<Key>osfPageUp:		scroll(-1,page)\n\
 	<Key>Prior:	        scroll(-1,page)\n\
-	<Key>osfPageDown:	scroll(1,page)\n\
+	:<Key>osfPageDown:	scroll(1,page)\n\
 	<Key>Next:	        scroll(1,page)\n\
 	Mod1<Key>Break:		soft-reset()\n\
 	Shift<Key>Break:	hard-reset()\n\
@@ -388,6 +388,12 @@ static char defaultTranslations[] = "\
 	~Ctrl<Btn1Up>:		extend-end()\n\
         ~Shift<Btn2Down>:	process-bdrag()\n\
         ~Shift<Btn2Up>:		copy-to()\n\
+	~Shift ~Ctrl <Btn4Up>:	scroll(-1,line)\n\
+	~Shift ~Ctrl <Btn5Up>:	scroll(1,line)\n\
+	Shift ~Ctrl <Btn4Up>:	scroll(-3,line)\n\
+	Shift ~Ctrl <Btn5Up>:	scroll(3,line)\n\
+	Ctrl ~Shift <Btn4Up>:	scroll(-1,page)\n\
+	Ctrl ~Shift <Btn5Up>:	scroll(1,page)\n\
 	<EnterWindow>:		enter()\n\
 	<LeaveWindow>:		leave()\n\
 	<FocusIn>:		focus-in()\n\
-- 
2.25.1