[PATCH] gitk: moving all three panes if clicking on an arrow.

From

SHStefan-W. Hahn <stefan.hahn@s-hahn.de>

Date

Nov 5, 2005, 19:55 UTC

Message-ID

<20051105195529.GB6081@scotty.home>

[PATCH] gitk: moving all three panes if clicking on an arrow.

Signed-off-by: Stefan-W. Hahn <stefan.hahn@s-hahn.de>

---

 gitk |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/gitk b/gitk
index a9d37d9..616a3e2 100755
--- a/gitk
+++ b/gitk
@@ -3178,7 +3178,7 @@ proc clickisonarrow {id y} {
 }
 
 proc arrowjump {id dirn y} {
-    global mainline sidelines canv
+    global mainline sidelines canv canv2 canv3
 
     set yt {}
     if {$dirn eq "down"} {
@@ -3216,6 +3216,8 @@ proc arrowjump {id dirn y} {
        set yfrac 0
     }
     $canv yview moveto $yfrac
+    $canv2 yview moveto $yfrac
+    $canv3 yview moveto $yfrac
 }
 
 proc lineclick {x y id isnew} {
---
0.99.8.GIT

-- 
Stefan-W. Hahn                          It is easy to make things.
/ mailto:stefan.hahn@s-hahn.de /        It is hard to make things simple.