From d8c78a8d560420c0f3996ed264098c6d26a27ac5 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Mon, 10 Jan 2005 00:21:13 +0000
Subject: add -r flag to reverse scrolling behavior. from peter canning.

---
 src/cmd/acme/acme.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/cmd/acme/acme.c')

diff --git a/src/cmd/acme/acme.c b/src/cmd/acme/acme.c
index 111b9a99..c3b0fbac 100644
--- a/src/cmd/acme/acme.c
+++ b/src/cmd/acme/acme.c
@@ -27,6 +27,7 @@ char		wdir[512] = ".";
 Reffont	*reffonts[2];
 int		snarffd = -1;
 int		mainpid;
+int		swapscrollbuttons = FALSE;
 
 enum{
 	NSnarf = 1000	/* less than 1024, I/O buffer size */
@@ -102,6 +103,9 @@ threadmain(int argc, char *argv[])
 		if(loadfile == nil)
 			goto Usage;
 		break;
+	case 'r':
+		swapscrollbuttons = TRUE;
+		break;
 	case 'W':
 		winsize = ARGF();
 		if(winsize == nil)
@@ -562,6 +566,12 @@ mousethread(void *v)
 			barttext = t;
 			if(t->what==Body && ptinrect(m.xy, t->scrollr)){
 				if(but){
+					if(swapscrollbuttons){
+						if(but == 1)
+							but = 3;
+						else if(but == 3)
+							but = 1;
+					}
 					winlock(w, 'M');
 					t->eq0 = ~0;
 					textscroll(t, but);
-- 
cgit v1.2.3