add Kscrollup/down to acme

2 files changed, 26 insertions, 1 deletions

diff --git a/appl/acme/acme.b b/appl/acme/acme.b
index 13f9a724..6150d202 100644
--- a/appl/acme/acme.b
+++ b/appl/acme/acme.b
@@ -570,6 +570,19 @@ mousetask()
 					row.qlock.unlock();
 					break;
 				}
+				if(w != nil && (mouse.buttons &(8|16))){
+					if(mouse.buttons & 8)
+						but = Dat->Kscrollup;
+					else
+						but = Dat->Kscrolldown;
+					w.lock('M');
+					t.eq0 = ~0;
+					t.typex(but, 0);
+					w.unlock();
+					bflush();
+					row.qlock.unlock();
+					break;
+				}
 				if(mouse.xy.in(t.scrollr)){
 					if(but){
 						if(t.what == Columntag)
diff --git a/appl/acme/text.b b/appl/acme/text.b
index c374bf8d..953a08ea 100644
--- a/appl/acme/text.b
+++ b/appl/acme/text.b
@@ -689,7 +689,19 @@ Text.typex(t : self ref Text, r : int, echomode : int)
 	}
 	if(t.what!=Body && r=='\n')
 		return;
-	case(r){
+	case r {
+		Dat->Kscrolldown=>
+			if(t.what == Body){
+				q0 = t.org+frcharofpt(t.frame, (t.frame.r.min.x, t.frame.r.min.y+2*t.frame.font.height));
+				t.setorigin(q0, FALSE);
+			}
+			return;
+		Dat->Kscrollup=>
+			if(t.what == Body){
+				q0 = t.backnl(t.org, 4);
+				t.setorigin(q0, FALSE);
+			}
+			return;		
 		Kdown or Keyboard->Down =>
 			n = t.frame.maxlines/2;
 			q0 = t.org+frcharofpt(t.frame, (t.frame.r.min.x, t.frame.r.min.y+n*t.frame.font.height));