From 936e993b6f66a2a2dfe5a6683076e72d4e898dc5 Mon Sep 17 00:00:00 2001 From: malc Date: Mon, 8 Aug 2011 11:15:10 +0400 Subject: [PATCH] Tweak DOWN in bird's eye --- main.ml | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/main.ml b/main.ml index 9129e97..1b77c22 100644 --- a/main.ml +++ b/main.ml @@ -1774,15 +1774,15 @@ let birdseyespecial key x y (conf, leftx, pageno, hooverpageno) = let pageno = min (state.pagecount - 1) (pageno + 1) in state.birdseye <- Some (conf, leftx, pageno, hooverpageno); let rec loop = function - | [] -> gotopage1 pageno 0 - | l :: rest -> - if l.pageno = pageno - then ( - if l.pagevh != l.pageh - then gotoy (clamp (l.pageh - l.pagevh + conf.interpagespace)) - else Glut.postRedisplay () - ) - else loop rest + | [] -> + let y, h = getpageyh pageno in + let dy = (y - state.y) - (conf.winh - h - conf.interpagespace) in + gotoy (clamp dy) + | l :: rest when l.pageno = pageno -> + if l.pagevh != l.pageh + then gotoy (clamp (l.pageh - l.pagevh + conf.interpagespace)) + else Glut.postRedisplay () + | l :: rest -> loop rest in loop state.layout -- 2.11.4.GIT