From d5877ddecc352815bcddca0f1214d6b1d0ca4019 Mon Sep 17 00:00:00 2001 From: Yaroslav Kolomiiets Date: Fri, 4 Nov 2016 13:35:03 +0200 Subject: acme: hande Pgup, Pgdown keys --- appl/acme/text.b | 14 ++++++++++++-- dis/acme/text.dis | Bin 19443 -> 19736 bytes 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/appl/acme/text.b b/appl/acme/text.b index 32c31ee6..0aa0d482 100644 --- a/appl/acme/text.b +++ b/appl/acme/text.b @@ -705,12 +705,22 @@ Text.typex(t : self ref Text, r : int, echomode : int) } return; Kdown or Keyboard->Down => - n = t.frame.maxlines/2; + n = t.frame.maxlines/3; + q0 = t.org+frcharofpt(t.frame, (t.frame.r.min.x, t.frame.r.min.y+n*t.frame.font.height)); + t.setorigin(q0, FALSE); + return; + Keyboard->Pgdown => + n = 2*t.frame.maxlines/3; q0 = t.org+frcharofpt(t.frame, (t.frame.r.min.x, t.frame.r.min.y+n*t.frame.font.height)); t.setorigin(q0, FALSE); return; Kup or Keyboard->Up => - n = t.frame.maxlines/2; + n = t.frame.maxlines/3; + q0 = t.backnl(t.org, n); + t.setorigin(q0, FALSE); + return; + Keyboard->Pgup => + n = 2*t.frame.maxlines/3; q0 = t.backnl(t.org, n); t.setorigin(q0, FALSE); return; diff --git a/dis/acme/text.dis b/dis/acme/text.dis index ef06f6f2..09c28b5d 100644 Binary files a/dis/acme/text.dis and b/dis/acme/text.dis differ -- cgit v1.2.3