[PATCH] gitk: Fix nextfile() and add prevfile()

From: OGAWA Hirofumi <hirofumi@mail.parknet.co.jp>
Date: Sep 26, 2006, 15:22 UTC
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 <hirofumi@mail.parknet.co.jp>
---

 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
 	}
     }
 }
_