[PATCH] Add a scrollbar for commit history in gitk
From: Nicolas Cornu <hidden>
Date: 2016-06-15 22:59:07
Subsystem:
the rest · Maintainer:
Linus Torvalds
From b3570290bd761a1bf952ea491fa62b123231fe61 Mon Sep 17 00:00:00 2001
From: Nicolas Cornu <redacted> 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