plan9port

commit d8c78a8d560420c0f3996ed264098c6d26a27ac5
parent 5eead98e71ca5d7df5797fc04371848e6ae04f4f
Author: rsc <devnull@localhost>
Date:   Mon, 10 Jan 2005 00:21:13 +0000

add -r flag to reverse scrolling behavior.
from peter canning.

Diffstat:
M
src/cmd/acme/acme.c
 | 
10
++++++++++
M
src/cmd/acme/dat.h
 | 
1
+

2 files changed, 11 insertions(+), 0 deletions(-)
diff --git 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);
diff --git a/src/cmd/acme/dat.h b/src/cmd/acme/dat.h
@@ -515,6 +515,7 @@ Text			*mousetext;	/* global because Text.close needs to clear it */
 Text			*typetext;		/* global because Text.close needs to clear it */
 Text			*barttext;		/* shared between mousetask and keyboardthread */
 int			bartflag;
+int			swapscrollbuttons;
 Window		*activewin;
 Column		*activecol;
 Buffer		snarfbuf;