From 19ff07da28f1c334017dd2f65de7e0377aa8e494 Mon Sep 17 00:00:00 2001 From: Charles Forsyth Date: Wed, 5 Jun 2013 11:32:00 +0000 Subject: add Kscrollup/down to acme --- appl/acme/acme.b | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'appl/acme/acme.b') 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) -- cgit v1.2.3