[PATCH] gitk: Add horizontal scrollbar to the files list
- From
Bert Wesarg <bert.wesarg@googlemail.com>
- Date
- Oct 1, 2019, 10:08 UTC
- Message-ID
- <5c5803ac99b6aaf7ca39393422ca9aa17f0280ec.1569910203.git.bert.wesarg@googlemail.com>
Wrapping filenames is an unexpected experience in UX design. Disable wrapping and add a horizontal scrollbar to the files list to remove this.
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com> --- gitk | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/gitk b/gitk index abe4805..bf2a061 100755 --- a/gitk +++ b/gitk @@ -2477,13 +2477,16 @@ proc makewindow {} { -background $bgcolor -foreground $fgcolor \ -font mainfont \ -tabs [list $indent [expr {2 * $indent}]] \ - -yscrollcommand ".bright.sb set" \ + -xscrollcommand ".bright.sbx set" \ + -yscrollcommand ".bright.sby set" \ -cursor [. cget -cursor] \ - -spacing1 1 -spacing3 1 + -spacing1 1 -spacing3 1 -wrap none lappend bglist $cflist lappend fglist $cflist - ${NS}::scrollbar .bright.sb -command "$cflist yview" - pack .bright.sb -side right -fill y + ${NS}::scrollbar .bright.sbx -orient horizontal -command "$cflist xview" + ${NS}::scrollbar .bright.sby -orient vertical -command "$cflist yview" + pack .bright.sbx -side bottom -fill x + pack .bright.sby -side right -fill y pack $cflist -side left -fill both -expand 1 $cflist tag configure highlight \ -background [$cflist cget -selectbackground]
-- 2.23.0.11.g242cf7f110