[PATCH] Add a scrollbar for commit history in gitk

From

NCNicolas Cornu <ncornu@aldebaran-robotics.com>

Date

Oct 29, 2013, 13:53 UTC

Message-ID

<CAMXp-VN=CMRdXwJ3+LRZegm-bwiDmJd66-YnZb65BNpqyHQCLA@mail.gmail.com>

>From b3570290bd761a1bf952ea491fa62b123231fe61 Mon Sep 17 00:00:00 2001

From: Nicolas Cornu <ncornu@aldebaran-robotics.com>
Date: Tue, 29 Oct 2013 14:51:29 +0100
Subject: [PATCH] Add a scrollbar for commit history in gitk

---
 gitk-git/gitk | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gitk-git/gitk b/gitk-git/gitk
index d6f5e07..e517253 100755
--- a/gitk-git/gitk
+++ b/gitk-git/gitk
@@ -2124,11 +2124,17 @@ proc makewindow {} {
     # create three canvases
     set cscroll .tf.histframe.csb
     set canv .tf.histframe.pwclist.canv
+    set cscrollhl .tf.histframe.pwclist.canv.csb
     canvas $canv \
     -selectbackground $selectbgcolor \
     -background $bgcolor -bd 0 \
-    -yscrollincr $linespc -yscrollcommand "scrollcanv $cscroll"
+    -yscrollincr $linespc -yscrollcommand "scrollcanv $cscroll" \
+    -xscrollcommand "scrollcanv $cscrollhl"
     .tf.histframe.pwclist add $canv
+    ${NS}::scrollbar $cscrollhl -command {$canv xview} -orient horizontal
+    if {!$use_ttk} {$cscrollhl configure -highlightthickness 0}
+    pack $cscrollhl -fill x -side bottom
+
     set canv2 .tf.histframe.pwclist.canv2
     canvas $canv2 \
     -selectbackground $selectbgcolor \

-- 
1.8.4.2