From: OGAWA Hirofumi Date: Tue, 26 Sep 2006 15:22:34 GMT Subject: [PATCH] gitk: Fix nextfile() and add prevfile() Message-ID: <873bae3b5x.fsf_-_@duaron.myhome.or.jp> In-Reply-To: <7vpsdjryj2.fsf@assigned-by-dhcp.cox.net> 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 --- gitk | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff -puN gitk~gitk-nextfile-fix gitk --- git/gitk~gitk-nextfile-fix 2006-09-27 00:16:11.000000000 +0900 +++ git-hirofumi/gitk 2006-09-27 00:16:48.000000000 +0900 @@ -4440,12 +4440,26 @@ 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 + break + } + set prev $loc + } +} + proc nextfile {} { global difffilestart ctext set here [$ctext index @0,0] foreach loc $difffilestart { if {[$ctext compare $loc > $here]} { $ctext yview $loc + break } } } _