shithub: riscv

Download patch

ref: a1b1f7a24d06f271d71e70e1346483cd0ae61faa
parent: c7522489a3792242babd49980296ea21741d4426
author: stanley lieber <stanley.lieber@gmail.com>
date: Wed Feb 8 15:34:54 EST 2012

mothra: respond to scroll wheel

--- a/sys/src/cmd/mothra/mothra.c
+++ b/sys/src/cmd/mothra/mothra.c
@@ -398,6 +398,13 @@
 			break;
 		case Emouse:
 			mouse=e.mouse;
+			if(mouse.buttons & (8|16)){
+				if(mouse.buttons & 8)
+					scrolltext(-text->size.y/24, 1);
+				else
+					scrolltext(text->size.y/24, 1);
+				break;
+			}
 			plmouse(root, &mouse);
 			break;
 		case Eplumb:
--