From: Paul Mackerras <paulus@samba.org>
Date: Fri, 19 May 2006 23:58:49 +0000 (+1000)
Subject: gitk: Fix bug where page-up/down wouldn't always work properly
X-Git-Tag: v1.4.0-rc1~21^2~4
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=e72ee5ebc8de90ad6de8f9318f75ebd45b2ca001;p=git.git

gitk: Fix bug where page-up/down wouldn't always work properly

If the user pressed page up or page down and the new page wasn't
already drawn, we failed to select the line we wanted in the new
page.  This fixes it.

Signed-off-by: Paul Mackerras <paulus@samba.org>
---

diff --git a/gitk b/gitk
index d59debf2..286f5cd5 100755
--- a/gitk
+++ b/gitk
@@ -3429,6 +3429,7 @@ proc selnextpage {dir} {
 	set lpp 1
     }
     allcanvs yview scroll [expr {$dir * $lpp}] units
+    drawvisible
     if {![info exists selectedline]} return
     set l [expr {$selectedline + $dir * $lpp}]
     if {$l < 0} {