From 67c22874cf82edae9b5c5f0a47c432d08d7ad426 Mon Sep 17 00:00:00 2001 From: OGAWA Hirofumi Date: Wed, 27 Sep 2006 12:32:19 +0900 Subject: [PATCH] [PATCH] gitk: Fix nextfile() and add prevfile() The current nextfile() jumps to last hunk, but I think this is not intention, probably, it's forgetting to add "break;". And this patch also adds prevfile(), it jumps to previous hunk. Signed-off-by: OGAWA Hirofumi Signed-off-by: Paul Mackerras --- gitk | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/gitk b/gitk index ebbeac63aa..ab383b3ad2 100755 --- a/gitk +++ b/gitk @@ -4440,12 +4440,27 @@ proc getblobdiffline {bdf ids} { } } +proc prevfile {} { + global difffilestart ctext + set prev [lindex $difffilestart 0] + set here [$ctext index @0,0] + foreach loc $difffilestart { + if {[$ctext compare $loc >= $here]} { + $ctext yview $prev + return + } + set prev $loc + } + $ctext yview $prev +} + proc nextfile {} { global difffilestart ctext set here [$ctext index @0,0] foreach loc $difffilestart { if {[$ctext compare $loc > $here]} { $ctext yview $loc + return } } }