git-for-windows/git
1
0
Fork 0
mirror of https://github.com/git-for-windows/git.git synced 2026-06-14 05:33:00 -05:00
Code Issues Packages Projects Releases 335 Wiki Activity

Merge branch 'horizontal-scroll' of github.com:ramcdona/gitk

Browse Source 
* 'horizontal-scroll' of github.com:ramcdona/gitk:
  gitk: add horizontal scrollbar to the commit list pane

Signed-off-by: Johannes Sixt <j6t@kdbg.org>
This commit is contained in:
Johannes Sixt
2026-06-12 11:30:22 +02:00
parent c8c5df79df d9ee2ab501
commit bad83ada0e
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gitk
View File

@@ -2469,7 +2469,8 @@ proc makewindow {} {
-selectbackground $selectbgcolor \
-background $bgcolor -bd 0 \
-xscrollincr $linespc \
-yscrollincr $linespc -yscrollcommand "scrollcanv $cscroll"
-yscrollincr $linespc -yscrollcommand "scrollcanv $cscroll" \
-xscrollcommand ".tf.histframe.cxsb set"
.tf.histframe.pwclist add $canv
set canv2 .tf.histframe.pwclist.canv2
canvas $canv2 \
@@ -2487,9 +2488,11 @@ proc makewindow {} {
.tf.histframe.pwclist sashpos 0 [lindex $::geometry(pwsash0) 0]
}
# a scroll bar to rule them
# a scroll bar to rule them (vertical), and one for horizontal scroll of left pane
ttk::scrollbar $cscroll -command {allcanvs yview}
pack $cscroll -side right -fill y
ttk::scrollbar .tf.histframe.cxsb -orient horizontal -command "$canv xview"
pack .tf.histframe.cxsb -side bottom -fill x
bind .tf.histframe.pwclist <Configure> {resizeclistpanes %W %w}
lappend bglist $canv $canv2 $canv3
pack .tf.histframe.pwclist -fill both -expand 1 -side left