>From b3570290bd761a1bf952ea491fa62b123231fe61 Mon Sep 17 00:00:00 2001
From: Nicolas Cornu <ncornu@xxxxxxxxxxxxxxxxxxxxxx>
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
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html