From: Nicolas Cornu Date: Wed, 30 Oct 2013 10:58:22 GMT Subject: [PATCH v2] gitk: Add a horizontal scrollbar for commit history Message-ID: <1383130702-4966-1-git-send-email-ncornu@aldebaran-robotics.com> This scrollbar is not optional and is useful if there is a lot of tags or branches. Signed-off-by: Nicolas Cornu --- gitk | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/gitk b/gitk index 5cd00d8..62563b1 100755 --- a/gitk +++ b/gitk @@ -2120,11 +2120,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