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>
2006-05-20 09:58:49 +10:00 · 2006-05-20 09:58:49 +10:00 · e72ee5ebc8
commit e72ee5ebc8
parent b093448910
1 changed files with 1 additions and 0 deletions
--- a/1
+++ b/1
@ -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} {