From 5fd659795aa434eb34130bfd48085488b19ad3d7 Mon Sep 17 00:00:00 2001 From: malc Date: Mon, 14 Jun 2010 20:09:04 +0400 Subject: [PATCH] Fix by-page scrolling --- main.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main.ml b/main.ml index 9df3683..84d5068 100644 --- a/main.ml +++ b/main.ml @@ -774,14 +774,14 @@ let viewkeyboard ~key ~x ~y = begin match List.rev state.layout with | [] -> () | l :: _ -> - gotoy (state.y + l.pageh - l.pagey) + gotoy (clamp (l.pageh - l.pagey)) end | '\127' | 'P' -> begin match state.layout with | [] -> () | l :: _ -> - gotoy (state.y-l.pageh); + gotoy (clamp (-l.pageh)); end | '=' -> -- 2.11.4.GIT